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3 COPY 1L0G7813 *k MAP EC HISTORY ** 002500 2558 201 DC A {EN PT POINT TO MAP ENTPY POINT TABLF 
4 gubevece: cieeeese BIC OR IOI OR OIG I IO om igi iotagoioigiok toiotetoiak tet i teak kok ak 202 FEKEKEEEKEREKEEE es HHH AHH HK RAH HEH AEE EEE EEK EEE RA EKER EEA EEE 
5 * 203 OI III IIIS II III III III IOI IOI IOI It ki i IOI SIRO 
6 * a * PREREQUISITES * eK * 204 ** ** 
7 * * 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOF (D3C0O0O) ** 
8 * NONE * 206 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER x * 
9 * * 207 ** PARAMETERS TO PASS TO THE TU'S AND tO PASS TO THE OPERATOR ** 
10 32 ORI II III IO IO III IGRI III IG BIIOK sok sok dk i ak 208 ** THE INDICATED MESSAGE(S). THEPE ARE FOUR TABLES UJSED FOR THIS ** 
11 * * 209 ** PURPOSE THEY APE: ** 
12 * x MODIFICATIONS * * 210 ** ** 
13 * * 211 ** STEP AND RULE ADDRESS TABLE ** 
14 * CHANGES MADE TO MEET PROGRAM REQUIREMENTS * 212 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * & 
15 * * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ** 
16 ORO IOI ORO I OR OR IO OI OR to i to ak ik it kk i i ak 214 ** ENTRIES ARE AS FOLLOWES ** 
17 * * 215 ** A AN ADDRESS OF THE RULE DC STAFT AREA * * 
18 * ek ak REAtS INCORPORATED KK x 216 ** B THE STEP NUMBEP IN DECIMAL * 
19 * * 217 ** C AN EQUATE FOR THE STEP NUMBER *% 
20 * NONE * 218 ** **x 
21 * * 219 ** RULE INFORMATION TABLE ** 
9 IOI IO IORI OR IORI IORI III III I Ik II ae tt ok 220 ** THIS TABLE CONTAINFS THE REQUIRED INFOPMATION TO EXECUTE * 
23 * * 221 ** THE APPROPPTATE RULE UNDER MDI. EACH RULE HAS ITS OWN ** 
24u * ek SPECIAL INSTRUCTIONS * XK * 222 ** UNJCUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS *& 
25 * * 223 ** INDICATED WITH A X'OO0O0* FOR THE RPULE EQUATE. ** 
26 * NONE * 22u ** ** 
27 * * 225 ** SQUES * 
28 CIO ROR OK IORI I II III IR Fk FR III I FO 226 ** A) RULE EQUATE xX'0100! ** 
29 * * 227 ** 3 ADDPESS OF THE YES LEG RULE * & 
30 * 4k E. C. HISTORY #40 * 228 ** on 
31 * * 229 ** SFIXT **x 
32 * DATE 17DEC76 DATE 18 a DATE OYMART7T DATE 10JUN77 * 230 ** | PFULE ECUATE xX't0101° ** 
a . E.C. 578486 E.-C. 57857 E.C. 578638 E.C. 578625 * ce oo B) ADDRESS OF MESSAGE TO PRINT yes 
* 
35 * DATE O1MAR78 DATE DATE DATE * 233 ** $STOP ** 
36 * E.C. 755285 F.C. E.C. EeCs * 234 ** A) RULE EQUATE X'0102'! ** 
37 * x 235 ** B) ADDPESS OF MESSAGE * 
38 OOOO RI OR OI i OR aR a dak ak dk do aK 236 ** * 
002500 40 17813 START X*'2500! START ADDRESS OF ALL 'I! TYPE PPOG 237 ** $GOTO ** 
000100 41 @CUES EQU x'0100' EQUATED VALUE FOR MDI STATEMENT 238 ** A) RULE ECUATE X'0200! ** 
000101 42 @FIXT EQU xX'0101° EQUATED VALUE FOR MDI STATEMENT 239 ** B) ADDRESS OF MESSAGE ** 
000102 43 @STOP EQU X'0102! EQUATED VALUE FOR MDI STATEMENT 240 ** C) NAME OF MAP TO GO TO *x 
000200 G4 @GOTO EQU X'0200'! EQUATED VALUE FOR MDI STATEMENT 241 ** D) ENTPY POINT WITHIN GO TO MAP TO USE * 
000201 45 @CALL EQU X'0201! EQUATED VALUE FOR MDI STATEMENT 242 ** EF) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * 
000300 46 @INPT EQU X'0300! EQUATED VALUE FOR MDI STATEMENT 244 ** ** 
0004090 47 @QUXX EQU Xx'Q4UOO! EQUATED VALUE FOR MDI STATEMENT 245 ** SCALL * 
000509 48 OTUXX EOU X¥'O0500! EQUATED VALUE FOR MDI STATEMENT 246 ** A) RULE EQUATE X'0201' *x 
000600 49 @NVLD EQOU x '0600' EQUATED VALUE FOR MDI STATEMENT 247 ** B) ADDPESS OF MESSAGE od 
000000 50 Ee EQU x'0000! FOQUATE FOR gu 2U8 ** C}) NAME OF MAP TO CALL ** 
000004 51 N EQU x'0004' EQUATE FOR NOT EQUAL 249 ** D) FNTRY FOINT WITHIN CALLED MAP TO USE ** 
000008 52 HI Eee x'OO0O08! eo eaae FOR HIG 250 ** E) INDICATOP FOR EXTERNAL OF INTERNAL PREFERENCE *x 
O00000C 53 NH EQU x*o000Cc! EQUATE FOR NOT HIGH 251 ** ** 
000010 54 LO EQU X¥'0010! EQUATE FOR LO 252 ** SINPT * 
000014 55 NL EQU x'ootd' EQUATE FOR NOT LOW 253 ** A) RULE EQUATE X*'0300! * x 
000010 56 LT EQU X'0010! EQUATE FOR LESS THAN 254 ** B) INPUT TYPE (EBCDIC OP HEX) pe 
QOO0000C 57 LE FOU X*OO00C! EQUATE FOR LESS THAN OR EQUAL TO 255 ** C) ADDRESS OF YES LEG RULE ** 
000008 58 GT EQU X*0008° EQUATE FOR GREATER THAN 256 ** D) DESTINATTON LOCATION OF INPUT DATA ** 
000014 59 GE EQU X'OOT4a!? EQUATE FOR GREATER THAN OR EQUAL TO 257 ** E) LENGTH OF INPUT DATA ** 
000200 60 ON at X'0200!8 EQUATE FOR ON 258 ** F) LOWER LIMIT CF GOOD DATA * x 
000202 61 OF .EQU X¥'0202! EQUATE FOR OFF 259 ** G) HIGHER LIMIT OF GOOD DATA *x 
000204 62 MX ECU X'*O2048 eeuarE FOR MIXED 260 ** ** 
000000 63 EBC FOU X¥*0000! EQUATE FOR EBCDIC DATA TRANSFER 261 ** SQUXX a7 
000001 64 HEX EQU x'O001' EQUATE FOR HEX DATA TRANSFER 262 ** A) RULE EQUATE X*'O400! *x 
000001 65 XTENL EQU xX¥'O001! EQUATE FOR FXTERNAL REFERENCE 263 ** B) ADDFESS OF YES LEG PULE * 
000000 66 INTRNL EQU X*O000! EQUATE FOR INTERNAL REFERENCE 264 ** C) TU BRANCH TO ADDRESS eco DER * * 
000000 67 PARM EQU X'0000! EQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS ge Y) ** 
000001 68 DA EQU X'0001' EQUATE FOR DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER T % 
000002 69 UA EQU X'0002° EQUATE FOR UNIT ADDRESS 267 ** F) PARAMETER TO PASS TO rer * 
000000 70 DUMMY EQU xX*0000!? DUMMY EQUATE 268 ** G} STORE ADDFESS FOR FIRST 8 WOFPDS OF PARAMETER ek 
001800 72 PID EQU *-X'ODOO! ADDRESS OF MDI HEADER 269 ** %* 
000232 73 PIYPE FOU *-—X'22CE! ADDRESS OF PROCESSOF TYPE FIELD 270 ** STUXX * x 
00180C 74 STEFNUM FOU PTD+x*O00C! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE EQUATE X'0500! * 
001808 75 OPWD1 EQU PID+X*QOOE!® ADDFESS OF OPTION WORD ONE 272 ** B) ADDRESS OF YES LEG POLE * 
001810 76 OPWD2 EQU DID+X'001085 ADDRESS OF OPTION WORD TWO 273 ** C) TY BRANCH O ADDRESS * & 
001818 77 TUSTATUS EQOU PID+x'0018! ADDRESS 0O TO STATUS WORD 274 ** D) TYPE OF COMPARE TO MAKE ON RESULTS ** 
OO181A 78 TUWORK EQU PID+X'OO1A!? ADDRESS OF TU WORK ARE 275 ** E) LENGTH OF COMPARED RESULTS % 
OO189A 79 TUPARM1 EQU PID+X'OO9A't ADDRESS OF PARM 1 POINTER 276 ** F) MASK FIEID FOR COMPARE ** 
00189C 80 TUPAPM2 EQU PID+x'o009C"° ADDRESS OF PARM 2 POINTER 277 ** G) LENGTH OF PARAMETER IN BYTES * 
00189E 81 TUPARM3 EQU PID+X'OQO9E! ADDRESS OF PARM 3 POINTER 278 *«* H) PARAMETEP TO PASS TO THE TU *x 
0018A0 82 TUPARMY EOU PID+X'OOAO! ADDRESS OF PA®M 4 POINTER 279 ** T) STOPE ADDRESS FOR FIRST 8 WORDS OF PARAMETEP # 
0018A2 83 TUPARMS5 FOU PID+X!OOA2!* ADDRESS OF PARM 5 POINTER 280 ** od 
OO18 AY 84 TUPARM6 FOU PID+X'OOAG't ADDRESS OF PAFM 6 POINTER 281 ** $SNVLD * * 
0018A6 85 TUPARM7] EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTEP 282 ** A) RULE ECUATE x*'0600! * 
0018A8 86 TUPARM8 FOU PID+X'OOA8*t ADDRESS OF PARM 8 POINTER 284 ** * * 
OOT8AA 87 TUPARMY EQU PID+X'OOAA* ADDRESS OF PAPM 9 POINTER 285 ** ENTRY POINT TABLE eK 
OO018AC 88 TUPARM10O EQU PID+X'OOAC! ADDRESS OF PARPM 10 POINTER 286 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT  & 
OO18AE 89 TUPARM11 EOQU PID+X*OOAF*® ADDRESS OF PARM 11 POINTER 287 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * & 
0018B0 90 TUPARM12 EQOU PID+X*OOBO!® ADDRESS OF PARM 12 POINTER 288 ** REFERENCED BY NAME AND ADDRESS. ENTPIES ARE AS FOLLOWES: Ke 
0018B2 91 TUPARM13 EQU PID+X'O0OB2!° ADDRESS OF PARM 13 POINTER 289 ** * 
0018 B4 92 TUPARM14 EOQU PID+X'OOB4! ADDRESS OF PARM 14 POINTER 290 ** A NAME OF ENTFPY POINT % 
0018 B6 93 TUPARM15 EQU PID+xX*OOB6! ADDRESS OF PARM 15 POINTER 291 ** B ADDFESS OF ENTRY POINT RULE TABLE * 
0018B8 94 TUPARM16 EOQU PIDt+X'OOBB!t ADDRESS OF PARM 16 POINTER 292 ** * x 
OO18BA 95 TUMSGWTR FOU PID+X*'OQORBA! ADDPESS OF -> TO COMMON MSG WEITER 293 ** THE ENTRY POINT TABLE END IS INDICATED BY A X'0000° * & 
OO18BE 96 TUUA EQU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN ERC 294 ** * & 
0018C0 97 TUDA EQU PID+x*OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 295 ** MESSAGE TABLE * 
0018C2 98 TUBRUFF EQU PID+X*O0C2! ADDRESS OF LAST USED WOFPD IN MAP 296 ** THTS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR *% 
0018C4 99 TULAST FOU PID4+x*O0Cc4d* ADDPESS OF LAST ADDRESSABLE WORD 297 ** VIA THE MDI SUPERVISOR. THF TABLE IS AS FOLLOWES: * 
0018C56 100 TURESULN ECU PID+x'o0océ! ADDRESS OF LENGTH OF TU RESULTS 298 ** * x 
0018C8 101 TURESUL eeu PID+xX*OOC8* ADDRESS OF TU RESULTS FIELD 299 ** A FOUATE FOR START OF MESSAGE BLOCK * 
0018 FC 102 MAPNAME EQU PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEY 300 ** B) NUMBER OF LINES OF MESSAGE * x 
001948 103 TUINPT EQU PID+x!'O1488 ADDRESS OF S$INPT DATA 301 ** C) LENGTH OF FOLLOWING LINE ** 
00196E 104 PARMARA EQU PID+X'O16E!® ADDRESS OF S$INPT INPUT APEA 302 ** D) FIRST LINE OF MESSAGE 4 
0019B8 105 @DCADD1 EQU PID+X'01B8! MDI POINTER 303 ** E) LENGTH OF FOLLOWING LINE * x 
QOO19BA 106 @DCADD2 EQU PID+X'OT1BA® MDI POINTER 304 ** F SECOND LINE OF MESSAGE * 
0019C4 107 SUPSTAT EQD PID+xX'O1C4! ADDPESS OF MDI STATUS 305 ** G) ETC. ** 
0019 D0 108 DEVADD EQU PID+xX*O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 306 ** * 
OO19DA 109 DEVADD!1 EQU PID+Xt*O1DA® ADDRESS OF DEVICF ADDPESS TABLE 1 JOT eR KH He 2 Re a he Re ee He eRe ae a ee 2 ee ee ee He 2 He te He i ee He He Hee ee he Here He i a a ok ie ee ok oe eo 
OO19 FY 110 DEVADD2 EOU PID+X'OTEU! ADDRESS OF DEVICE ADDPESS TABLE 2 3 OB eH a He eo ee ke a a ee ae 2 he 2 ee He he 2 A he 2 he KR ae 2 eK KK KK KK KK KK 
OO19EE 1171 DEVADD3 FOU PID+X'O1EE® ADDRESS OF DEVICE ADDRESS TABLE 3 
0019F8 112 DEVADD4G EQU PID+X'O1F8! ADDRESS OF LPEVICE ADDRESS TABLE 4 
001A02 113 DEVADDS EQU PID+X!0202! ADDFPESS OF DEVICE ADDRESS TABLE 5 
OO1A0C 114 DEVADD6 EQU PID+X*0O20C! ADDRESS IF DEVICF ADDRESS TABLE 6 
001415 tae DEVADD?7 are ae ADDRESS OF DEVICE ADDRESS TABLE 7 
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CMM E LTS S SSS CSCS CSCS LOSS S CSCS SSC SSS CS LSS SCS CSLS LP SSL SSCS TTS ST SS TS. Se ee ee eS 000018 4264+B56 EOU 24 8 8 * 
CEPA TE CSS SSS SSS Se LSS ESS SSS SS LS CSS TS SSeS SSSCLSSOSCS SOC CSL Sc eS SS Se S.C. TL eT Se SS 000019 4Y274+B57 EQU 25 9 4 * 
313 ** OK OOOO1A 428+B58 EQU 26 10 2 * 
314 ** STEP AND RULE ADDRESS TABLE *K 00001B 4294+B59 EQU 2/7 11 1 * 
315 ** eK 00001C 430+B60 EQU 28 12 8 * 
RRR LE tL SSL See Le SSS. Settee eC SST CS SOS SOSCECSSCCSC CSS CSC SC SCL SCS SSCL Se LOS. S ST ee eT 00001D 431+B61 EQU 29 13 4 x 
COMME TELLS SSL STL ELS SS SSS SSS SES SS TS SSS SSL SS eC SSS CSCS S SS SSCS CS CL SS Ss 2 2 et £2 22 2 2 2 QOOQOO001E 432+B62 EQU 30 14 2 * 
002502 2518 318 DC AL2 (N00001) OOOOTF 4334+B63 EQU 31 15 1 x 
002504 0001 319 DC XL2'0001!8 OO00TE Y344CH EQU 30 14 2 CHARACTER SUPPLIED 
000001 320 EQNO00001 Bee 0001 QOO0O01F U35+CMP EOQU 31 15 1 COMPARE OPERATION 
002506 2532 321 AL2 (N00002) 002602 0000 U37+OPTN3 DC X*0000! PROGRAM OPTION CONTROL WOFD 3 
002508 0002 322 XL2'0002! Y38+* 
000002 323 EQNOD0002 BR? 0002 439+* QO MYSTERY INTEPRUPT MT 8 CS STATUS IN PROGRESS cS 
00250A 2536 324 AL2 (N00003) QUO+* $1 3ERROR INTEPPUPT ER 9 CS AVAILABLE CSA 
00250C 0003 325 XL2'*0003! GU14+* 2 EXPECTED INTERFPUPT XI 10 CS STATUS INTFRRUPT ERR CE 
000003 326 EQN0N0003 200 0003 Q42+* 3 #3INTERRUPT RECEIVED IN 11 ISB BITS OW (1-7) ISRON 
OO250F 2548 327 AL2 (NO00004) Yu34* 
002510 0004 328 XL2°00048 GQU4+* 4 EXPFECTFD EFR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 
000004 329 EQNOOOOY Bou 0004 445+* 5 HARD ERROR FOUND HE 13. OTO CC EPROP TOCC 
002512 2552 330 DC AL2 (N00005) YU6+* G6 WRONG INTR LEVEL SLE 14 NO INTEFRROUPT NOLIN 
002514 0005 331 DC XL2'0005! “u7+* JF NO INTP EXPECTED NI 15 INTERRUPT CC ERROR INCC 
000005 332 EQNO0005 eee 0005 G4 ge+x* BIT HEX 
002516 0000 333 pc AL2 (DUMMY) 000020 Y“yQ+MT EQU 32 0 8 MYSTERY INTFEFPRUPT HAPPENED 
CRU Le SLES SSS LES LSS SSS ST SSS TS SS LSS eS SSS SSL SST SSCS CSS OC SS ST SL SSS te + 2 2 2 2-2 2 2 23 000021 U50+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 
CELE LES SSS SS SPSS ESS SS SSS SS SSS SS SS SSCL SCS SSCS SSS SS Se CSL SCS SCS CLS. CSS 2. 2 es 2. Pee Ss 000022 U5T4+XI EQU 34 2 2 EXPECTED INTEPRUPT CONTROL BIT 
336 *«* HK 000023 YS2+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 
337 ** RULE INFORMATION TABLE * 000024 US34+XE EQU 36 4 8 EXPECTED Eeee RESPONSE 
338 *x * 000025 WSU+t+HE EQU 37 5 uy HARD ERFOR RETRIES 
KER LEST SESS SL SSS SSS SS SE SSCS CSC SSS SS SSS SS SCLC SS SSS SSS CCS SS Se SS CL eT Te ete ee ee ee 000026 USS4+ELE EOU 38 6 2 INTEPROUPT Sak WRONG LEVEL EPROR 
CCQ tS LS SL Te STS SSS SSCS CLS CSS CSC LS SSS SSS CSCS LSS SL SS CLS SCS LCCC C eS ETS Se ee eS Tt 000027 USGtNT EQU 39 7 1 NO INTERRUPT EXPECTED E 
341 NO0001 STUKX T7802,10,00000000000000000000,EQ,CT= (900004) , YES=N00003,X 000028 4574+CS EQU KO 8 8 CYCLE STATUS IN PROGRESS 
002518 0500 342+N00001 DC A (QTOXX) | 000029 GY584+CSA EQU uy 9 4 CYCLE STEAL AVAILABLE 
O0O251A 2536 343+ Dc Pree OO002A US9O+4+CE EQU 42 10 2 CYCLE STEAL STATUS INEPRRUPT ERROR 
00251C 264C 344+ DC A (T7802) 00002B 460+ISBON EQU 43 11 1 ISB BITS ON (1-7 
00251B 0000 345+ DC AL2 (EQ 00002C 4614NG EQU 4y 12 8 TEST UNIT RESULTS NO GOOD 
002520 OOO0OA 346+ DC AL2(10 90002D 462*#IOCC EOU 45 13 4 OTIO CC ERROR 
002522 00000000000000000 347+ DC X¥*O00000000000000000008 OO0002E GY63+NOIN EQU 46 14 2 NO INTERRUPT 
348+ ALIGN WORD 0000 2F 4YO4U+INCC EQU 47 15 1 INTERRUPT CC ERROR 
00252c 0000 349+ Cc AL2 (0) 465+4+%* 
00252E Cic1 350+ Cc C*'AA? 466+* COMMON BUFFER FOR PRINTING DATA 
351+ ALIGN WORD Y67+* 
002539 196E 352+ Cc eee 002604 0000 Y694+$TUID DC A (*-* TEST UNIT IDENTIFICATION 
353 NOO0O002 SFIXT Se 00016) ,GTO=( (7878, XX) ) 002606 0000 Y7O+SIOIN DC A (*-* T/O AND INTR CONDITION CODES 
002532 0101 354+N00002 Cc A (@ Ahay 002608 0000 471+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADPFS 
002534 255E 355+ C A (F00016) 00260A 0000 Y72+LSTIO DC A (*-* ADRS OF LAST I/0 + 4 BYTES 
356 NO00003 STUXX 17850,04,00000000,EQ, PLNG=05, PARN=00/01,QT= (Q00020), X 00260C 0000 U73+4+DEVI DC A (*-* DEVICE DEPENDENT DATA 
002536 0500 357+#N00003 DC A (QTUXH) | OO260E 0000 U7HF+DEV2 DC A (*-* * 
002538 2552 358+ DC eee eae 05) 002610 0000 Y754#4DEV3 DC A (*-* * 
00253A 2800 359+ DC A (T7850) 002612 0000 Y764+DEV4 DC A (*-* * 
00253c 0000 360+ DC AL2 Ee 00260C Y77+SCTID EOQU DEV1 READ ID BUFFER FOR IBIS §&§ TERN 
00253E 0004 361+ DC AL2(0 002614 478+DCBUF EQU a DCB BUFFER FOR LAST DCB USED 
002540 00000000 362+ DC X¥'*00000000! 002614 0000 4“79+#DCB1 DC A (*-* LAST DCB TABLE, CONTROL WOPD 
363+ ALIGN WORD ‘ 002616 0000 U80+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
002544 0005 364+ Cc ar eale. 002618 0000 4Y81+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
002546 FOFO6iFO0F1 365+ Cc C'00/01* 00261A 0000 4“824+DCBY DC A (*-* LAST DCB TABLE, DEV DEP WORD 
00254B 00 366+ ALIGN WORD 00261cC 0000 483+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
00254C 196E 367+ Cc ea ae 00261E 0000 484+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADPS 
368 nNooOoo4Y SFIXT ae 00023) ,GTO=( (7878, XX) ) 002620 0000 4{85+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 
Q0254E 0101 369+N00004 Cc A (a a 002622 0000 4864+DCBB DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 
002550 2596 370+ A (F0002 ) U87+* 
371 NOO005 $FIXT F ae 7) ,GTO= ( (7878, XX) ) 002624 Y88+CSBUF EQU %* CYCLE STEAL DATA BUFFER 
002552 0101 372+N00005 DC A (a ae 002624 0000 4Y894CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 
002554 25CE 373+ DC A (F0002 002626 0000 US9O04+CSTL2 DC A (*-* CYCLE STEAL WD 2, DEVICE DEPEND 
002556 0000 374 ae AL2 (DUMMY) 002628 0000 W914CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 
002558 375 ENTPT * 00262A 0000 Y9O24CSTLY DC A (*-* CYCLF STEAL WD 4, DEVICE DEPEND 
376 ete e eee EE EEL Pe nT a oN acre ater t ler yar ny a amma es 00262c 0000 U934CSTLS DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND 
QT HM He he 2 he ee ee 2 eR a 2 ae ae he a fe he eo ae he ae 2 ie he he oe Ke 2 hohe 2 2 2 he ake fe oe ie ak oh ake ate ke ae ae ate ak ate oe oe fee ae ak af fe fe ok ke 00262F 0000 UGU4CSTLE6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 
378 ** eK 002630 0000 4954+CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 
ee pas ENTRY POINT TABLE ae 002632 0000 feoteee DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 
JB HR A He RM Ke ee oe He He He He aR Re he Oe a he i ae Re he oe Re 2 fe 2 he a fe ae fer ale ofeach he oe RC aie ae ate oe oe ie fe ake oe ake oe oe 002634 0000 UOB4+SSUBN DC A (*-% LAST SUBROUTINE ADDRESS USED 
J BD HA He Ae Le he he Me ee ah ae he ah ee 2 ee 2 ae ee he fe he oe ee he af te ae ae ake of ae oe ofc hc a ae ae a ate ake ae ae He fe ae fe af ake ke aK oe ake ae fe oe fe ake ae ae ake ae af of 002636 00000000 Y994+SDATA DC 2h (aa OPTIONAL DATA 
383 ENTPT EP=A,STEP=00001 00263A 0021 5004+SINTL DC X'O00218 INTERRUPT LEVEL REQUESTED 
002558 C140 384+ DC tat 00263C 0000 501+TURTN DC tao cs TEST UNIT RETURN ADRS TO MDI 
00255A 2518 385+ DC A (N00001 00263E 0O00B2 502+$DVID DC X*OOB2! DEVICE ID 
00255c 0000 386 AL2 (DUMM 002640 19D0 503+SVCAL DC A (DEVADD) ADPS OF DEVICE ADDRESS 
CWA ESSEC SLCC S SS SSS LOSS SSS SLE SS SSS SS SS SS CSS S SCE LCS CSS CLS SCS LS SST Se St 2 2 2 ee 2 2 2 Ss 002642 =OO000 Sou¢ pc A (¥-*) TBTIS CYLINDER ADDRESS 
Cite Le See ee LS SSL L SSS SC SSL SS CeCe SSS LCS LSS SS SESS SSS CSS SCS CSLCCLCCSL £ Ss 2 2 2 2s 505+* 
389 ** eK 506+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
390 ** MESSAGE TABLE x 507+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULIS AREA ARE 
391 ** bed 508+* STILL VALID BUT A DIFFERENT TEST IS TC BE PERFORMED. 
CPM LESS LE LSS SSS SSCS SL SS SSL SS SSCS SL SS LSS SSCS SS LSS LCL L SCS OL eS eL SS Se. ee 2 2 2 2 2 29 509+4+* 
393 RRO ROI IO CII IRI OK OR IG Iho i ao doko i ait i a katate oak toa ak te afc aie 002644 4020 2604 3cC02 510+T3C02 MVWI X*3C02',STUID SET UP TEST UNIT ID 
00255E 394 FO0016 EQU * O0O0264A 5700 5171+ BXS R7 RETURN TO MDI SUPVR 
00255E 0002 395 DC AL2 (0002) 513 COPY O Qu 
002560 OO1F 396 DC A (0030) SRE ELS SS SSeS SS SCS SO SSOCS SSS Se SS SSO LCC SSS SS CSC LC SSL SL SCT eT eS Stet ete Te ee ee ee 
002562 E3CSE2E340C6C1C9D 397 pc CLOO30'TEST FAILED TO RUN CORRECTLY. ! 515 * * 
002580 0014 398 DC A (0020) 516 * FOQOUATED NAMES FOR SUPPORTED SVCIS * 
002582 DICSE3ZEUDIDS4UOE3D 399 DC CLOO20"*RETURN TO MAF 7878. ! 517 * * 
002596 400 FO0023 EOU ra 518 kok OKO kok kk kkk loki lok tok koko ok ioiok sak kaki tok iotok i tok totoiokokiokoatok kag ko ioiaiioak akg ato. ak ate ag 
002596 0002 401 be AL2 (0002) 000000 519 OUT EQU 0 OUT SVC 
002598 OOTE 402 DC A (00 30) 000001 520 OUTIN EQU 1 OUTIN SVC 
00259A E3C5SE2Z2E340C6C1C9D 403 DC CLOO30'TEST FAILED TO RUN CORRECTLY. ! 000002 521 IDLE EQU 2 IDLE SVC 
Q0025R8 0014 YOY DC A (0020) 000003 522 ASCII EQU 3 HEX TO ASCTI SVC 
Q0025BA DICSEZSEYDIDSYOE3D 495 DC CLOO20*RETURN TO MAF 7878. !# 000004 523 CHNGE EQU 4 CHANGE LEVEL SVC 
0025CE 406 FO0027 rae * 000005 524 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
0025CE 0002 4O7 D AL2 (0002) 000006 525 EXIT EOQU 6 EXIT SVC 
0025D0 0016 408 DC ete oSS. 000007 526 TERM EQU 7 TERMINATE SVC 
0025D2 D4&CIDT4OD9ICIDSHOE 409 DC CLOO22'MAP RAN WITHOUT ERROR. 000008 527 RESET EQU 8 RESET DEVICE SVC 
0025828 0014 410 DC A (0020) 000009 528 RID EOU 9 READ ID SVC 
OO25EA DICSESZEYDIDSYOE3D 411 DC CLOO20*"RETURN TO MAP 7878. ! OOOOOA 529 START EQU 10 START CYCLE STEAL SVC 
442 DIT OOB2 OOO000B 530 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
O0025FE 0000 414+OPTN1 DC X*'0000! PROGRAM OPTION CONTFOL WORD 1 00000C 531 PREP ahi 12 PPEPARE DEVICE SVC 
415+ 00000D 532 READO EQU 13 READ WITH FONCTION BIT 3 OFF SVC 
002600 0000 4164OPTN2 DC xXx*O0008 PROGRAM OPTION CONTROL WORD 2 QOOOOOE 533 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
417+* BIT HEX OOOOOF 534 RSTAT EQU 15 READ STATUS SVC 
000010 4184+B48 EQU 16 0 8 PROBLEM PROGRAM CONTKOL BITS 000010 535 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000011 4194+B49 EQU 17 1 4 000011 536 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 OW SVC 
000012 420+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 000012 537 CTRL EQU 18 CONTROL SVC 
000013 421+B51 FQU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 538 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000014 422+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 539 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
000015 4234+B53 EQU 21 5 4 * 000015 540 HIO EQU 21 HALT ALL Ae 
000016 Y244+B54 EQU 22 6 2 * 000016 541 peeae EQU 22 popes USE OF DCP DISK SVC 
000017 4254+B55 EQU 23 7 1 * 000017 542 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM ZORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM ZT OPP 1°76 
000018 543 HALT EQU 4 RFALT SVC 662+* RETURN CONTFOL 
000019 544 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 663+* 
OOOOTA 545 HTOE EQU 26 REX TO EECDIC SVC (STRING 664+* B TUPTN* RETURN TO MDI SUPERVISOR 
000018 546 ATOH EQU 27 ASCII TO HEX SVC (STRING 665+4+* 
O0001C 547 HTOA EQU 28 HEX TO ASCII SVC (STRING OE ee tre ee ee ree te ee treet ere ere 
00001D 548 ETOA EQU 29 EBCDIC TO ASCIT SVC (STRING 00264C OFOD 263C 667+T7802 MVW TURTN SAVE RETURN ADDFESS 
OO001E 549 ATOE EQU 30 ASCTI TO EBRCDIC SVC STRING 002650 4020 2604 7802 668+ MVWI xt 48054 S$TUID SAVE TU TD FOR DISPLAY 
OOO0O0TF 550 READI EQU 31 FEAD DATA SETS FOR MDI/UTIL 002656 4424 25FE 669+ MVA OPTN1 RG SET UP FOINTER ADRS IN R4& 
000020 551 WRITI EQY 32 WRITE DATA SETS FOR UTIL 00265A 6E03 3130 670+ BAL $CONC, CLEAR DEV DEP STG AND CONNECT I/O BL 
ELAR TES SES@ereceerrreeecrerccrCSCCCOSCS CESS L CSCS SSCS SESS CSS CCC CSCS SS CSS TS TT ee eS SS OO265E 2736 671+ Dc (TO Dk). FRPOR ADPS FOR INVALID PREP 
554 * * 672+* 
555 * EQUATES USED BY TU'S AS CONSTANTS * 002660 CA25 18C8 673 MVWZ TURFSUL,R2 CLEAR PESULTS WORD 
556 * * 002664 CA25 18CA 674 MVWZ TURESUL+2 ,R2 CLEAR RESULTS WORD 2 
557 OO ORO OO ogi hog oO a ak dok dak ite dak ak teak ak 002668 CA25 18cCC 675 MVWZ TURESULt4,R2 CLEAR RESULTS WORD 3 
OOOO4E 558 PLUS EQU Ct+t PLUS CHAR 00266C CA25 18CE 676 MVWZ TUPESUL+6,R2 CLEAP PESULTS WORD & 
0000560 559 MINUS EQU ci~' MINUS CHAP 002670 CA25 18D0 677 MVWZ TOURESUL+8,R2 CLEAP RESULTS WORD 5 
000000 561 ZERO EQU .¢) 002674 4124 18C8 678 MVA TURESUL R{ ADDRESS OF RESULTS 
000001 562 ONE EQU 1 002678 6E03 2F56 679 RT210 BAL SRECL,P6 RECALIBPATE 
000002 563 TWO EOQU 2 00267C 27458 680 pc A (TO 2£R) EFROR 
000003 564 THREE EQU 3 O00267E 4CA1 681 TBTR si ER) INTERRUFT ERROR? 
000004 565 FOUR EOU- 4g 002680 1250 682 JON O24 YES 
000005 566 FIVE FEQUD 5 002682 4020 2D52 0005 683 MVWIT X¥*0005',SKDCB SEEK CONTROL WORD- NO CHAINING 
000006 567 SIX EQU 6 002688 4020 2D54 0000 684 MVWI O,SKDCB+2 DIRKECTION, DIFFERENCE 
000007 568 SEVEN EQU 7 00268E 4020 2D5A 0000 685 MVWI 0O,SKDCBtH8 HEAD 0 
000008 569 EIGHT Z0U 8 002694 4224 19D4 6 86 MVA DEVADD+4, R2 TEST FOR VTL OR DUTCHESS 
000009 570 NINE EQU 9 002698 4AO0C 687 TBT Ane 12) * 
OOOO0A 571 TEN EOU 10 002694 1204 688 JON 7888 JUMP IF DUTCHESS 
00000B 572 ELEVN EQU 11 11 00269C 4020 2D5C 2D32 689 MVA RSDCB,SKDCB+10 RD SECT ID CHAINING ADDPFPESS 
00000C 573 TWELV EQU 12 12 O0026A2 5003 €90 J T7777 
00000D 574 THRIN EOU 13 13 OO26A4 4020 2D5C 2D42 691 T7888 MVA RIDCB,SKDCBt10 FD SECT ID IMMEDIATE CHAINING ADDPESS 
OOO000F 575 FIVIN EQOU 15 15 OO26AA 4020 2D32 200A 692 T7777 MVWI X'200A", RSDCB PD SECTOR ID CONTE WORD 
000010 576 SIXTN EQU 16 16 002680 4020 2D36 3B00 693 MVWI X*'*3B00° "RS DCB+4 PHYSICAL SECTOR LOG#0 
000020 577 THRY2 EQU 32 32 0026B6 6E03 2FUR 694 BAL S$SEEK R6 SEFK NOOP,SELECT hEaS Oo 
000040 578 SIXT4 EOQU 64 64 OO26BA 274E 695 DC A(TO2fR) ERROP 
000080 579 ONE28 EQU 128 128 0026BC 4CA1 696 TBTR (R4,EP) INTERRUPT EPROF? 
000100 580 TWO56 EQU 256 256 QOO26BE 1233 697 JON TO2K YES 
000400 581 ONEK EQU 1024 1024 0026C0 6E03 2F5E 698 BAL S$RDID,FR6 READ SECTOR ID 
000800 582 TWOK EQU 2048 2048 0026C4 2745 699 DC A(TO26R) ERROR 
000C00 583 THREK EQU 3072 3072 0026C6 4CA1 100 TBTR Le ee INTERRUPT EPROR? 
001000 584 FOURK EQU 4096 4096 0026C8 £1230 701 JON 02Cc YES 
FFFFFF 586 M1 EQU -1 -1 OO26CA 802B 2DC2 260D 102 CB ZEROO , SCTID+1 CK IF FLAG IS ZEROO 
FFFFFE 587 M2 EQU ~2 -2 0026D0 6801 27Du4 703 BNE RT201 BCH IF FLAG NOT ZEROO (TPK O DEFECT) 
FFFFFD 588 43 EQU -3 -3 OO026D4 4“O2F 260E 0000 704 CWI 0,SCTID+2 CK FOR TRACK ZEROO 
FFFFFC 589 M4 EQU -4 ~ OO26DA 187B 705 JNE REY22 RECAL FAILURE - TRACK NOT ZEROO 
O01 FORO III IO III ICR III II I II III III OI GIO iokok gk oko ak. kok ak ak 0026DC 4020 2DD0O 012E 706 MVWI 302.DIFF MAX DIFFERENCE 
592 * * 0026E2 4020 2DD2 0000 707 MVWI 0 XXX INITT "XXX'=TPRACK NUM IN REVER DIR 
593 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 0O026E8 UCSF 708 TBTR (by B63) CLEAR INDICATORS 
594 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * OO2Z6EA 4020 2D52 8005 709 MV WI x'8605t SKDCRB SEEK CONTROL WORD- CHANING 
595 * * OO26F0 4YCDF 710 LOOP TBTV RY B6 3 TEST AND INVERT DIRECTION PIT 
596 [ORI OR RIO III III IO IO RR III IOI tok I ROI ki ik koko ke ic ae 0026F2 1208 711 IN KRY BCH NEG - BCH IF RFV BIT ON 
000000 597 BSO EQU 0 OO26F4 6A08 2DD2 712 MVW XXX ,F2 MOVE CONTENTS OF "XXX" IN R2 
000001 598 BS1 HOU 1 OO2EF8 6A0E 2DD0 713 AW DIFF R2 SEEK DIFFERFNCE PLUS '*Xxx!? 
000002 599 BS2 EOU 2 OO26FC 4020 2D5A 0000 714 MVWI 0,SKSCB+8 SELECT HEAD ZEROO 
000003 600 BS3 EOo 3 002702 A828 2DC4 2DD2 715 AW ONE1,XXX ONE PLUS "xxx? 
000004 601 BS4 EQU 4 002708 5024 1té J GO1 
000005 602 BS5 EQU 5 OO270A 717 SKFV EQU * 
000006 603 BS6 EQU 6 OO270A 6A08 2DD2 718 MVW XXX,F2 
000007 604 BS7 EQU 7 O0270E 8828 2DDO 2D54 719 MVW DIFF SKDCBt2 LOAD DIFFERENCE IN DCB 
000008 605 BS8 EQU 8 002714 =4YoO2C 2D54 0800 720 OWT x'0860', SKDCBF2 TURN ON REVERSE BIT 
000009 606 BS9Y EQU 9 OO271A 4020 2D5A 0100 721 MVWI X'0100',SKDCB+8 SELECT HEAD ONE 
OOOOOA 607 BS10 EQU 10 002720 S50O1E F22 J RT205 
000008 608 BS11 EQU 11 723 * 
00000C 609 BS12 EQU 12 002722 494A 724 TO2A TBTS (R1, 10) RECALIBRATE FAILURE 
00000D 610 BS13. EOQU 13 002724 5058 725 J FINS 
OOO00E 611 BS14 EOQU 14 002726 4&94B 726 TO2B fTBTS (Rt 11) SEEK FAILURE 
OOO0OF 612 BS15 EQU 15 002728 5056 727 J rn§ 
614 COPY T7802 O1DECT6 OO272A 494C 728 TO2C TBTS Ae 12) READ ID FAILURE 
615 £7802 TUIT TO2QR 00272c 5054 729 J IN 
616+ 8% RR RR RICCI III OO I OI aa ao gi ok i oko doko ok) 6 F FB 7 6X 00272E 494D 730 T02D fTBTS ae 13) SEEK & READ ID FAILUPE -CHAINING 
6174* 002730 5052 731 J nS 
618+* TEST UNIT 902732 UO4E 732 SERS TBTS tae) TRACK ZERO DEFECTIVE 
619+* 002734 5050 733 J FINS 
6£20+* SEEK AND CHAINING TEST 5/18/77 0027356 CA25 18C8 734 TO2R MVWZ TURESUL,R2 CLEAR RESULTS WORD 
621+* 00273A CA25 18CA 735 MVWZ TURESUL+4+2,R2 CLEAR RESULTS WORD 2 
622+* PURPOSE 00273E CA25 18CC 736 MV WZ TURESUL+4,R2 CLEAR RESULTS WORD 3 
623+* 002742 CA25 18CE 737 MVWZ TURESUL+6,R2 CLEAR RESULTS WORD 4 
6244+ VERIFY THE FOLLOWING: 002746 CA25 18D0 738 MVWZ TURESUL+8 ,R2 CLEAR RESULTS WORD 5 
625+* 1. SEEK AND VERIFY SECTOR ID FOR ALL TRACKS. OO274A 4124 18C8 739 MVA TURESUL, { ADDRESS OF RESULTS 
626+* OO274E 49O4F 740 TO2ZER TBTS ara 15) OTO CC ERROR 
o27+% CALLING SEQUENCE 002750 5042 a4] : J tn§ 
+ 2 
629+* PERFORM THE FOLLOWING: 002752 743 GO EQU * 
630+* 7 002752 8828 2DD0O 2D54 744 MVW DIFF,SKDCBt2 SETUP SEEK DIFFERENCE 
631+* 1. SEEK PECALIBRATE AND VERIFY TRACK time oe 002758 4O2D 2D54 0800 745 RBTWI x¥'0860',SKDCB+2 TURN ON FOR DIRFEFCTION BIT 
632+* 2- SEEK TO ALL CYLINDEFS ALTEPNATELY | 02,1,301 30 0 Becta 00275E 746 RT205 ou * 
633+* 3. READ SECTOR ID AND VERTFY THAT SEE WAS BER IOeAED edkkrc LY. OO275E 4020 2DEO OOTE TQ7 MVWI 30,LGSEC SETUP LOG SFCT E UAL 1E 
634+4+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: OO2T7TEY4 6E03 2EFC 748 BAL CONVT, R6 CONVERT TO PHYSICAL 1 
635+* ie 002768 8028 2DE3 2D36 749 MVB PHYSC+1,RSDCB+4 LOAD PHY SECT IN RD SEC DCB 
636+* ‘ TURESUL BIT O0----~-------- NOT USED OO276E 750 RT209 EOQU * 
637+* s TURESUL BIT 1-7---------- NOT USED OO276E 6E03 2F4UE 751 BAL FSEEK,R6 SEEK & READ SECTOR ID 
638+* & TURESUL BIT 2------------ NOT USED 002772 27T4E 752 DC A (TO2ER) ERROR 
639+4+* z TURESUL BIT 3------------ NOT USED 002774 4&CAt 753 TBTR Ar EP) INTEFROUPT EPPOR? 
64 0+* 002776 12DB 754 JON 026 YES 
641+* s TURESUL BIT Yorn NOT USED 002778 802B 2DC2 260D 755 CB ZERCO,SCTID+1 CK IF FLAG BYTE IS ZEROO 
642+ i TURESUL BIT S-----3-- HW NOT USED OO277E 101D 756 JE RT204 
E43+* / TORESUL BIT 6----~--------NOT USED 002780 757 RT207 EQU * 
6444+ é TURESUL BIT V-r--------- NOT USED 002780 802B 2DC5 260D 758 CB ONE14+1,SCTID+1 CK FOR GOOD ALTER SECTOR (CYL 1) 
645+* . 002786 1804 759 JNE RT203 BCH YF GOOD ALT. SECT NOT FOUND 
646+* ‘ TURESUL BIT 8------------ WOT USED 002788 760 RT206 Eu * 
64 7+* . TOURESUL BIT 9----------- NOT USED 002788 CA24 2DC4 761 Cc ONF1,R2 CHECK FOR CYLINDER ONE1 
6484+* - TORESUL BIT 10~---------- RECALIBRATE FAILURE 00278C 1019 762 JE RT208 
649+4+* é TORESUL BIT 1177-37-37 3----- SEEK FAILURE 00278E 50CD 763 J TO2C READ ID ERROR-INVALID FLAG 
650+* . 002790 764 RT203 EQU * 
651+* ‘ TURESUL BIT 12----------- READ ID FAILURE 002790 4O2F 2DEO OO3A 765 CWI 58 , LGSEC CK FCR PHYSICAL SECTOR #59 
652+* ‘e TURESUL BIT 13----------- SEEK & READ ID FAILURE (CHAINING) 002796 10C9 7T6€ JE TO2C ALL TRACKS DEFECTIVE (SIDE 0) 
6534* ° TURESUL BIT 14-~--------- TRACK ZEROO HAS DEFECTIVE SECTOR 002798 4029 2DE0 0001 167 AWI 1,LGSEC UPDATE LOG SECT# 
654+4+* ‘ TUPESUL BIT 15-----7----- OTO CC EPROR OO279E 6E03 2EFC 768 BAL cONnVT R6 CONVERT TO PHYSICAL SECT# - 1 
655+* : 0027A2 8028 2DE3 2D36 769 MVB  PHYSC41,RSDCB+4 LOAD DCB 
656+4+* = TURESUL BIT 167-31 ------ See STEAL STATUS FOR FAILING OP 0027A8 6E03 2F5E 770 BAL SRDID FG READ SECTOR ID 
657+* - TURESUL BIT 32-47 ------ 32-39 OIO CcC,40-47 INT CC OO27AC 274E 771 DC A (10 268) ERROR 
658+* TURESUL BIT 47-63 ------ TBS OO27TAE 4CAT 772 TBTR A 4 , ER) INTERRUPT ERROR? 
659+* . TURFSUL BIT 64-79 ~----- OPTION WORD 3 (ERPFOR INDICATORS) 0027B0 12BC 773 JON 02€é YES 
660+* < 0027B2 802B 2DC2 260D 774 CB ZEROO ,SCTID+#1 CK FOR FLAG BYTE EQUAL ZEROO 
661+* 0027B8 18EB 75 JNE RT203 FLAG IS NON-ZEROO 
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17813 --- EXERCISE SEEK AND READ P/N=1635248 EC=755285 PAGE 05 LI813°+-= EXERCISE SEEK AND READ P/N=1635248 EC=755285 PAGE OSA 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002A10 1804 1004 JNE T50S NO 1119+* . TURESUL BITS 16-32 CS STATUS 
002A12 2DC2 18C9 1005 CB ZEROO,TURFSUL+1 MDI BYTE 2 = 0 1120+* 
002A18 1006 JE T50T EXIT 1121+* EXITS NORMAL 
OO2A1A 2E36 0001 1007 T50S_ AWI 1,PASS1 INC PASS CTR 1122+* RETURNS TO MDI SUPERVISOR WHEN DONE. 
002A20 2866 1008 B T500 GO EXECUTE PASS 2 1123+* 
1009 x* 11244+* EXITS ERROR 
1010 * 1125+* RETURNS TO MDI SUPERVISOR. 
002A24 882B 2E48 2E40 1011 TS5O0I cW EROSV,EROO HD O CTR PASS1 = HDO CTR PASS2 ? 1126+* 
OO2A2A 1001 1012 JE TSQN YES 1127+* RETURN CONTROL 
0OO2A2C 4AUB 1013 TBTS {R2 1) FAILURES NOT CONSISTENT 112 8+* 
002426 8828 2E44 2E38 icia TSOW CW {DOsv, FADO HDO CTR PASS1 = HDO CTR PASS2 ? 4 iZ3es TURTN* RETURN TO MDI SUPERVISOR 
002A36 GAB =016 peas, ct ire ot 1) Pea uuRRe NOT CONSISTENT ke ue ore pee eeenen apneecee ee 
002A38 882B 2E4UA 2E42 1017 T50X CW risy, RO1 HD1 CTRS PASS1 = HDO CTRS PASS 2 ? OO02AD4 46FOD 263C 1132+T7884 MVW R7,TURTN SAVE RETURN ADDRESS 
OO2ZA3E 1001 1018 JE YES OO2AD8 4020 2604 7884 - 1133+ MVWI x 88g" $TUID SAVE TU ID FOR DISPLAY 
OO2A40 4GAU4B 1019 TBTS (Pa, 11) FAILURES NOT CONSISTENT OO2ZADE 4424 25FE 1134+ MVA OPTN1, R4 SET UP POINTER ADRS IN R4& 
apZhie bebe 280 A _ bo3h8e Sige 1° {izer BEY RGSRG BSS SESE RBBs Eon tavaleo gage” 1/0 7 
00O2A46 6E0D 2A9C 1022 RDID MVW T500+2 SETUP RETURN ADDRESS 113 7+* / 
OO2ZA4A 6803 2F5E 1023 BAL ere RFAD ID OO2AE8 C020 0232 1138 MVB CPUID,RO DETERMINE TYPE OF PROCESSOR 
OO2A4E 3164 1024 pc pisepésy ERROP OO2AEC F025 1139 CBI 37,R0 * 
002A50 4CA1 1025 TBTR (R4,ER) OO2AEE 1804 1140 JNE Ta 4tc JUMP IF NOT 4955 
00O2A52 1023 1026 JoFF 506 OO2AFO 4020 2B06 254C 1141 MVWI X'254C* ,T84T1+4+2 LOAD TIME CONSTANT FOR 2 SEC 
002A54 4CA9 1027 TBTR feu CSA) CYCLE STEAL STATS ? OO2AF6 5003 1142 J T84T. 
002856 6800 3164 1028 BOFF ERES FRROR OO2AF8 4020 2B06 OCOE 1143 T84UTC MVWI X'OCODE! ,T84T14+2 (4953) LOAD TIME CONS FOR 2 SEC 
OO2A5A 8828 2626 2E50 1029 MVW CSBUF4+2,STATS GET CS STATS OO2ZAFE 4724 311C 1144 T84T2 MVA IOBLK, R7 ETUP IOB 
002860 4524 2F50 1030 MVA STATS. R5 002B02 6008 1145 SVC =RESET ISSUE IO eset 
OO2A64 4D83 1031 TBTR R5 35 NO FECOFD FOUND 0OO0O2B04 4024 0000 1146 T84T1 MVWI ae RO TIMEOUT 2 SEC 
OO2A66 1218 10 32 JON 504 YES 002B08 6002 1147 T784 SVC ID * 
002A68 4D87 1033 TBTR {B> 7) UNSAFE OO2BOA BS8FE 1148 ICT ert * 
OO2A6A 1219 1034 JON 504 YES 002B0C CA25 18C8 1149 MV WZ TORESUL, R2 CLEAR RESULTS WORD 
OO2ZA6C 4D81 1035 TBTR {B5 1) SYNC CHECK 002B10 CA25 18CA 1150 MVWZ TURESUL+2 CLEAR RESULTS WORD 
OO2A6E 1207 1036 JON 503 YES 002B14 4224 18C8 1151 MVA TURESUL £5"? ADDRESS OF RESULTS 
002A70 4D88 1037 TBTR 4B? 8) FILE DATA OK ? 002B18 6E03 2F56 1152 BAL SRECL ,RO RECALIBPATE 
002A72 1205 1038 JON 5 YES 002B1C 2B26 1153 A (TB4FF) ERROR 
OO2A74 4DS8E 1039 TBTR {B> 14) BUFFER PARITY OK 002B1E &CA1 1154 TBTR A 4, ER) INTERRUPT ERROR? 
002A76 1001 1040 JOFF 50 NO 002B20 6A00 2CEC 1155 BON BUAR YES 
002A78 4A48 1041 TBTS R2,8) ATTACH BUFFER PARITY 002B24 5012 1156 J T8472 
OO2ZA7A 4AGA 1042 T504 TBTS P2,10) ERROP OTHER THAN SYNC ON FILE D CK 002B26 7B06 0003 1157 T84FF CWI X'0003!,R3 CHECK FOR COMMAND REJECT 
OO2A7C 5001 1043 J 50 002B2A 6801 3164 1158 BNE SERP$ ERROR-TU 
OO2ZA7TE GAUT 1044 T7503 TBTS §F2 7) SYNC OR FILE DATA CHECK OO2ZB2E 6E03 3028 1159 BAL XIOCS ,R6 peane EVCLE STEAL STATS 
002A80 402F 2D5A 0000 1045 7505 CWI SkDCE+8 HEAD 0 002B32 3164 1160 DC A (SEERS) ERR 
002A86 1004 1046 JE T506 YES 002B34% 4CA1 1161 TBTR gee ER) FAT eRRUPT ERROR? 
00O2A88 4029 2F42 0001 1047 AWL 1, ER0O1 INC HD1 READ ERROR CTR 002B36 6A00 3164 1162 BON ERRS YES 
OO2A8E 5005 1048 J T§00 RETURN 002B3A 402B 2626 0001 1163 TWI X'0001",CSBUFt2 NOT READY? 
002A90 4029 2E40 0001 1049 T506 AWI 1, EROO INC HDO READ ERROR CTR 002B40 6800 2CEC 1164 BOFF TS84AA NO-ERROR 
002A96 5001 1050 J T500 002B44 GAYE 1165 TBTS 4B? 14) SET NOT READY 
002A98 4AUG6 1051 7501 TBTS (R2,6) NO RECORD FOUND 00O2B46 6802 2CEC 1166 gu kn EXIT 
OO2A9A 6802 0000 1052 £500 x— RETURN TO CALLER OO2B4A 4020 2D54 0O12E 1167 T84Z MVWI 302,SKDCBt2 . SEEK TO CE TRACK 
1053 * 002B50 4020 2n52 0005 1168 MVWI 5,SKDCB SEEK CONTROL WORD 
1054 * 002B56 4020 2D5A 0000 1169 MVWI O,SKDCB+8 SELECT HEAD ZERO 
OO2ZA9E 4A41 1055 1502 TBTS {82 1) UNSAFE 002B5C 6E03 2FUE 1170 BAL $ SEEK, R6 SEEK TO CE TRACK 
O02AA0 6802 2AD0 1056 B 50 EXIT 002B60 3164 1171 pc A(SEPRS) ERROR 
OO2AA4 U4O2F 2D5A 0000 1057 TS5SOA CWI 0,SKDCB+8 USING HEAD 0 002B62 4CAl 1172 TBTR (ze ER) TEST FOR EPROR 
OO2AAR 1805 1058 INE 1507 NO 002B64 6A00 2CFA 1173 BON SURE ERROR - TU RESULTS NG 
OO2AAC 4O2E 2E3C 0001 1059 SWI 1,GDSE0 DEC GOOD SECT CTR (HEADO) 002B68 4020 2D32 200A 1174 MVWI X' 2002" ,RSDCB READ SECTOR ID CONTROL VORD 
OO2AB2 6802 291E 1060 B T50B 0O0O2B6E 4020 2DEO 0000 1175 MVWI 0,LGSEC INIT LOG SECT LOC 
OO2AB6 4O2E 2E3E 0001 1061 T507 SWI 1,GDSE1 DEC GOOD SECT CTR (HEAD1) 002B74% 6E03 2EFC 1176 T8484 BAL CONVT,R6 CONVERT LOG SECT TO PHYS-1 
OO2ZABC 6802 291E 1062 B T50B 002B78 8028 2DE3 2D36 1177 MVB PHYSC4+1,PSDCB+4 LOAD PHYSC SECT -1 IN RDSEC DCB 
OO2ACO 4A55 1063 TSOAA TBTS R2,21 RECAL OO2B7E 6E03 2F5E 1178 BAL $RDID,RO READ SECTOR ID 
OO2AC2 4A54 1064 TS50CC TBTS P2,20 INTERRUPT 002R82 3164 1179 pc A(S SERRS) ERROR 
OO2AC4 8828 2626 18CC 1065 MVW CSBOF+2,TURESUL+4 002B84 4CA1 1180 TBTR ts ER TEST FOR ERROR 
OO2ACA 5002 1066 J T50T 002B86 1208 1181 JON 84 
OO2ACC 4AS6 1067 T50BB TBTS {B2 22) SEEK 002B88 802B 2DC2 260D 1182 CB ZEROO,SCTID+1 FLAG ZERO? 
OO2ACE 50F9 1068 J 50¢c OO2BBE 1804 1183 JNE TB4U2 0 
1069 TS5OT fTXIT EXIT 002B90 4O2F 260E 012E 1184 CWI 302,SCTID+2 CE TRACK? 
QO2AD0 6802 31B4 10704+T50T B SCONX RETURN TO MDI CONTPOLLER 002B9K 1009 1185 JE T8443 YES 
VOT TA RR RR Re I ee He ee Ae a he oe ae He a RK I Hee He eR ie he he ae ee ee ie fe a i he 2h ee oe he eK a ae 2c ok aK ak ok ie ok 002B98 UWO?F 2DEO 003B 1186 T842 CWI 59,LGSEC END OF TRACK? 
1072 * OO2B9E 6800 2C90 1187 BE TB4sg YES-BAD TRACK 
1074 COPY T7884 O1DECT6 OO2BA2 4029 2DEO 0001 1188 AWI 1,LGSEC INCREMENT LOG SECT NOM 
1075 T7884 TUIT SERRS 002BA8 SOE5 1189 J T644 LOOP 
1 O76 4 RRR EK KER RRR a kk dio tok dob otok tek 6 FEB 7 AX OO2BAA 4020 2D54 0000 1190 T843 MVWI O,SKDCBt2 SETUP SEEK NO-OP (arr S EL ET) 
1077+ 00O2BB0 8038 189A 2D5A 1191 MVB TOBAENI®, SKDCB+8 SELECT HEAD FROM NDI PARM 
1078+* TEST UNIT 002BB45 6E03 2F4E 1192 BAL SSEEK,R6 SEEK 
10794 OO2BBA 3164 1193 DC A(SE ERKS) ERROR 
1080+* TUS4 WRITE AND READ ID TEST 12/01/76 OO2BBC 4CA1 1194 TBTR ct ER) CHECK CC 
1081+%* OO2BBE 6A00 2CFA 4195 BON SURE ERROR 
1082+* PURPOSE 002BC2 6E03 2EFC 1196 T84K BAL CONVT, CONVERT FROM LOG TO PHY 
1083+* 092BC6 8028 2DE3 2D36 1197 MVB PHYSC4+1,RSDCB+4 LOAD DCB WITH PHY SEC # 
1084+ FUNCTION: OO2BCC 8028 2DE3 2D26 1198 MVB PHYSC+1,WSDCB+4 LOAD DCB WITH PHY SEC# 
1085+* ;: 002BD2 8028 2DE3 2DA6 1199 MVB PHYSC+1,WKDCB+4 LOAD DCB. WITH PHY SEC# 
1086+* ‘ PROGRAM INITIALIZES ATTACHMENT. 00O2BD8 8028 2DE3 2DB6 1200 MVB PHYSC+1,RKDCB+4 LOAD DCB WITH PHY SEC # 
1087+* : RECALIFRATE OO2BDF 4cé4 1201 TBTS fea XE) POSSIBLE ERROP EXPECTED 
1088+* Z SEEK TO CE TRACK OO2BEO 6803 2F5E 1202 BAL RD{D,R6 READ SECTOR ID 
1089+ : SELECT HFAD FROM CE INPUT (0-1 OR 0- prey) OO2BE4 3164 1203 DC A (SEFR$) * 
1090+* iS WRITE ID ON SECTOR #0 OF NEXT GOOD SECROR 5) OO2BE6 4CA1 1204 TBTR {ea ER) TEST FOF ERROR 
1091+* 7 READ AND COMPARE ID BYTES OO2BE8 124Cc 1205 JON gah SYNC OR DATA CK 
10924 yi WRITE ID ON SFCTOR #0 OP NEXT GOOD SECTOR (AA) OO2BEA 802B 2DC2 260D 1206 CB ZEROO ,SCTID+1 CHECK FOR | ZERO FLAG 
109 3+4+* . READ AND COMPARE ID BYTES OO2BFO 1848 1207 JNE TSGA FLAG NOT 
10944 . RESTORE CE TRACK WITH ORGINAL ID BYTES OO2BF2 4020 2DFO 5555 1208 MVWI X'5555' WSIDT SFTUP DATA. 550 FOR WR ID 
1095+* : OO2BF8 4020 2DF2 5555 1209 MVWI X'5555'  wstpT+2 * 
1096+4+* OO2BFE 4020 2DF4 5555 1210 MVWI X'5555!" wstpT+4 * 
1097+* CALLING SEQUENCE 002CO4 6803 2C94 1211 BAL T84WR,RO GO TO WRITE SECTOR ID ROUTINE 
10984* 002c08 4020 2DFO AAAA 1212 MVWI X'AAAA' WSIDT WRITF ID DATA PATTERN 'AA' 
10994 PROGRAM PASSES STATUS CF ALL LINES IN FOLLOWING FORMAT: OO2COR 4020 2DF2 AAAA 1213 MVHI X'AAAA', WSIDT+2 * 
1100+* . TURESUL BIT O----NOT USED 002C14 4020 2DF4 AAAA 1214 MVWI X'AAAA' WSIDT+4 * 
1101+* : TURESUL BIT 1----NOT USED 002C1A 6E03 2C94 1215 BAL TBUWE,RE GO TO WPITE SECTOR ID ROUTINE 
1102+* : TURFSUL BIT 2----NOT USED 002C1E 6EF03 2F3E 1216 BAL LWSID, R6 RESTORE ORGINAL SECTOP ID 
1103+ : TURESUL BIT 3----NOT USED 002C22 6E03 2FFA 1217 BAL SWSEC, R6 * WRITE SECTOR ID 
1104+* ;: 002C26 3164 1218 DC A (SERRS ERROR- 
1105+* : TURESUL BIT 4----NOT USED 002C28 4CAYQ 1219 TBTR feu CSA CS STATS AVAILBLE? 
1106+* Y TURESUL BIT 5----NOT USED 002Cc2A 1014 1220 JOFF 84uF CK~NO ERROR 
1107+* ‘ TURESUL BIT 6----READ ID 002C2C 8828 2626 2E50 1221 MVW CSBUF+2,STATS CS STATS 
1108+* ‘ TURESUL BIT 7----INTERRUPT 002C32 4524 2EF50 1222 MVA STATS ,B5 ADDRESS OF CS STATS 
1109+ : 002C36 4D8F 1223 TBIR (RS iS) NOT READY? 
1110+* : TURESUL BIT 8---~RECAL 002C38 1001 1224 JOFF tTe4cc NO 
11114+* : TUORESUL BIT 9---~SEEK 002C3A 4AUYB 1225 TBTS R2,11) NOT READY 
1112+* : TUPESUL BIT 10---ALL SECTORS ARE BAD(FLAG NOT O OR ERR'S) 002C3C 4D8?2 1226 T84CC TBTR R5,2) ECHO CHECK? 
1113+* : TURESUL BIT 11---NOT READY 002C3E 1001 1227 JOFF 84DD NO 
11144+* 7 002C40 4AUF 1228 TBTS R2,15 ECHO CHECK 
1115+% TURESUL BIT 12---EXCEPTICN END OTHER THAN (11, 14 OP 15) 002C42 4D8B 1229 T84DD TBIR (R5,11 WRITE UNSAFE 
1116+%* TURESUL BIT 13---ID TEST FATTERN WRT/RD ERROR oo2cu4u 1001 1230 JOFF auc NO 
11174* : TURESUL BIT 14---UNSAFE 002C46 UAE 1231 TBTS R2,14) WRITE UNSAFE 
11184+* é TURESUL BIT 15---ECHO CHECK 002C48 4D87 1232 Ta4c TBTR R5,7) RESET UNSAFE FILE 


17813 --- EXERCISE SEEK AND READ P/N= 1635248 EC=755285 PAGE QA 17813 --- EXERCISE SEEK AND EKEAD P/N=1635248 EC=755285 PASE O6A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COPP 1976 LOCTR OBJECT TEXT STMT SCURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO2CHA 402F 2E50 0000 1233 CWI 0,STATS OTHER FRROPR FITS ON? 1348 * 
002c50 1001 1234 JE TO 4F NO 1349 * 
002C52 HAYC 1235 TBTS a 112) EXCEPTION END 1350 ***** READ SECTOR ID IMMEDIATE DCR ***#*%x 
002c 54 6E03 2F5E 1236 TeuUF BAL RDID € PFAD SECTOR ID 1351 * 
002c58 3164 1237 DC SERFS) ERROR-RETRY I0 OP OO2D42 2008 1352 RIDCB DC X*200E!* READ SECTOR ID 
OO2C5A 4CAT1 1238 TBTR (rt ER) CHECK CC O0O2D44 0000 1353 DC X*O0000! NOT USED 
002C5C 6A00 3164 1239 BON ERPS ERROR TH PESULTS NG 002D46 0000 1354 DC x*'*0000° NOT USED 
002c60 6E03 2EE6 1240 BAL Samen K6 COMPARE SECTOR ID DATA 002D48 0000 1355 DC x'O000! NOT USED 
002C64 2CTE 1241 DC me J COMPARE ERROR OO2D4A QO000 1356 DC X'00008 NOT USED 
002C66 8038 189A 2D5A 1242 TBY4HS MVB TUPAPRM1* ,SKDCB+t#8 SELECT HEAD FROM MDI PARM 002D4C 0000 1357 DC F eoot CHAIN ADDRESS 
002C5C 4020 2pD54 0000 1243 MVWI O SKDCB43 SET UP SEEK NO-OP (HD SELECT) OO2D4E 0006 1358 DC x'oo06! BYTE COUNT FOR READ SECTOR ID 
002C72 6E03 2FUE 1244 BAL $SEEK , R6 SEEK 002D50 260C 1359 DC A (SCTID) SECTOR ID DATA ADDRESS 
002C76 2C78 1245 DC ee BYPASS EPRORS 1360 * 
002c78 5000 1246 J TSuJ EXIT 1361 * 
1247 T8449 TXIT RETURN 1362 ***** SEEK DCB Hea KK Hk 
OO2C7TA 6802 31B4 12484+T84I B $CONX FRETUPN TO MDI CONTROLLER 1363 * 
WCET SST SS SSL SS SSS SSS SSS SSCS SS SS SCL L CSS SSCS CSC£CCSC CCS CLC CSCS SoS SC TSC LSS SSS Le 2 002D52 0005 1364 SKDCB DC Xx*0005! SEEK DCB 
1250 * 002D54 0000 1365 DC xX*O000* BIT 0-3=0; BITY=DIRECTION; 5-15=DIFFER 
1251 * 002D56 0000 1365 DC Frort 
1252 * 002D58 0000 1367 DC F'Ot 
OO2C7TE 4A4D 1253 T84H fTBTS 1545 13) COMPARE ERROR 002D5A 0000 1368 DC X* 00008 O-7 = HEAD:8-15 NOT USED 
002C80 50FC 1254 J RETURN 002D5C 0000 1369 DC A (*-*) CHAIN ADDRESS 
002C82 4029 2DEO 0001 1255 T84A AWIL LGSEC INCREMENT LOG SECT OO02D5E 0000 1370 DC F'O?r NOT USED 
002C88 402F 2DEO 003C 1256 CWI ab LGSEC CHECK FOR END OF TRACK 002D60 0000 1371 pC F‘'O! NOT USED 
002C8ER 1899 1257 INE 8 hk NO 1372 * 
002C90 GAYA 1258 T84II TBTS (2, 10) ALL SECTORS BAD,FLAG NOT 0 OR ERR'S 1373 ***** CYCLE STEAL STATUS DCB ****eexKx 
002C92 5SOF3 1259 J EBX LT 1374 * 
1260 * 002D62 2000 1375 CSDCB DC xXx*2000° CONTROL WORD 
002C94 6E0D 2CE6 1261 TS4WR MVW neo be SET UP FETURN ADDRESS O02D64 0000 1376 DC F'O! NOT USED 
002C98 6E03 3008 1262 BAL goetere WRITE SFCTOR ID (TEST) 002D66 0000 1377 DC F'OQ! NOT USED 
002c9C 3164 1263 DC h (BEERS) ERROR-RETRY I0 OP 002D68 0000 1378 pc F'oOrf NOT USED 
OO02C9E 4CAt 1264 TBTER RY INTERRUPT ERROF? OO2D6A 0000 1379 DC F'o? NOT USED 
Q0O02CA0 1018 1265 JOFF 84 NO 002D6C 0000 1380 DC F'Q? NOT USED 
OO2CA2 4CAY 1266 TBTER (FAC ae CS STATS AVAILBLE? OO2D6E 0008 1381 DC x'0008! G4 WORDS OF STATS 
OO2CAY4 6800 3164 1267 BOFF OK-NOC ERROR 002D70 2624 1382 DC A (CSEUF) ADDRESS OF CYCLE STEAL STATUS DATA 
Q002CA8 8828 2626 2E50 1268 MVW CSBUF+? CS STATS 1383 * 
OO2CAE 4524 2E50 1269 MVA STATS ADDFESS OF CS STATS 1384 **ee* WRITE DCB **®** HK KKK 
002CB2 4D8F 1270 TRTR (RS 18) NOT READY? 1385 * 
OO2CB4 1001 1271 JOFF 84H NO 002D72 0001 1386 WRDCB DC Xx'OQO001' WRITE CONTROL WORD 
O0O02CB6 YAYB 1272 TBIS R2,11) NOT READY OO02D74 0000 1387 DC FI'Q! NOT USED 
QO2CB8 4)D82 1273 T84HH TBIR R5,2) ECHO CHECK? 002D76 0000 1388 DC x*'0000°8 0-7=0;8-15 = FLAG PYTE 
QO2CBA 1001 1274 JOFF guéc NO 002D78 0000 1389 DC X*0000?* SERCH’ ARGUMENT CYLINDER 
002CBC 4AU4F 1275 TBTS R2,15 ECHO CHECK OO2D7A 0000 1390 DC X*0000 * SEARCH ARGUMENT HEAD-SECTOR 
OO2CBE 4D8B 1276 T84GG TBTR R5,11 WRITE UNSAFE Q002D7C 0000 1391 DC A (e-#) CHAIN ADDRESS 
002cCCO 1001 1277 JOFF B4L NO OO2D7E 0000 1392 pc Fro?r BYTE COUNT 
002CC2 4AYE 1278 TBTS R2,14) WRITE UNSAFE 002D80 0000 1393 DC A (*-*) WRITE DATA ADDRESS 
002CCY4 4D87 1279 T84L TBTR R5,7 PESET UNSAFE FILE 1394 * 
002CC6 402F 2E50 0000 1280 CWI STA S CTHER EPROR PITS ON? 1395 ***** VYVERTFY DCB KKK K KH 
002CCC 1001 1281 JE TO4B NO 1396 * 
OO2CCE GA4UC 1282 TBTS (ee 12) EXCEPTION END 002D82 200C 1397 VRDCB DC X*200C* CONTROL WORD 
QO2CDO 50D4 1283 T84B J B45 ERRORS-EXIT 002D84 0000 1398 pc F'Ot NOT USED 
002CD2 6E03 2FD2 1284 T84KK BAL SRIDS,R6 READ SECTOR ID (TEST) 002D86 0000 1399 pc x 0000! 0O-7=0:8-15 = FLAG BYTE 
OO2CD6 3164 1285 DC A (SERES) FRROP-RETPY IO OP 002D88 0000 1400 pc Xx'OO00* CYLINDER 
002CD8 4CA1 1286 TBTR Ae ER) CHECK CC 002D8A 0000 1401 DC X*0000* HEAD —- SECTOR 
OO2CDA 6A00 2CFE 1287 BON BaF ERROR TU RESULTS NG 002D8C 0000 1402 DC A (*-*) CHAIN ADDRESS 
OO2CDE 6£E£03 2ED8 1288 BAL CMPRT ,R6 COMPARE TEST ID DATA OO2D8E 0000 1403 DC F'otr BYTE COUNT 
OO2CE2 2CE8 1289 DC A (T8UE) COMPARE ERROR 002D90 0000 1404 DC A (*¥-*) VERIFY DATA ADDRESS 
Q02CE4 6802 0000 1299 T8UR B *— RETURN TO CALLER 1405 * 
QOO2CE8 4AWD 1291 T84E TBTS R2, 13) COMPARE EPROEF 1406 ***** READ DCB HK KK KK 
OO2CEA 50FC 1292 J ak RETURN 1407 * 
OO2CEC 4A4B 1293 TS84AA TBTS Bees RECAL 002D92 2009 1408 RDDCB DC x*20098 READ DCB CONTROL WOFD 
OO2CEE 4A&T 1294 TSUBB TBTS R2 INTERRUPT 002D94 0000 1409 pc Ftot NOT USED 
OO2CFO 8828 2626 18CA 1295 MVW seed? TURESUL+2 002D96 0000 1410 DC x*0000* 0-7=0,8-15 = FLAG BYTE 
OO2CF6 6802 2C7A 1296 B Fie 002D98 0000 1411 pc X*0000! SEARCH ARGUMENT CYLINDER 
OO2CFA 4aA49 1297 TS84EE TBTS SEFK OO2D9A 0101 1412 DC X¥*01701° SEARCH ARGUMENT H-R 
002CFC 5O0F8 1298 J Ree) 002D9c 0000 1413 DC A (*-*) CHAIN ADDRESS 
OO2CFE 4AU46 1299 T84T TBTS AR 2,6) READ ID OO2D9E 0000 1414 DC FO! BYTE COUNT 
002D00 SOF6 ete 2 J BUBB OO02DA0O 0000 hie . Dc A (*-*) READ DATA ADDRESS 
1303 COPY T78DCB O1DECT6 1417 **** WRITE SECTOR ID SKEWED KKK 
1304 ** (T78BDCB) 1418 * 
V3 OS HR HI A A A A A RR ROR ROR IC a a a RR SR tek a 1 21/7 6 ek tO tok ok 0O02DA2 0003 1419 WKDCB DC X'0003! CONTROL WORD 
1306 * OO2DA4 0000 1420 DC X¥*0000* NOT USED 
1307 * DCB TABLES AND DC'S OO2DA6 0000 1421 DC A (*-* O-7 = PHYSICAL SECTOR # MINUS ONE 
1308 * OO2DA8 0000 1422 DC A (*-* NOT OSED 
1309 2 III RII II RR OR ROR IRR IOI ROR IIR KR RR A I RRC I Ke RK a ge RC a 2k ie a ie aie ak ok OO2DAA 0000 1423 pc A (*-* NOT USED 
1310 * OO2DAC 0000 1424 DC Rh (*¥-* CHAIN ADDRESS 
1311 ***** DTAGNOSTIC DCB OO2DAE 0006 1425 DC X"0006! BYTE COUNT 
1312 * 0O2DBO0 2DE8 1426 DC A (WRSID) ADDR OF SECTOR ID DATA 
002D02 2008 1313 DGDCB DC X*2008! DIAGNOSTIC DCB 1427 * 
002D04 0000 1314 DC x'*0000! NOT USED 1428 **** READ SECTOR ID SKEWED He a he 
002D06 0000 1315 DC A (*-* O-7 = PHYSICAL SECTOR # MINUS ONE 1429 * 
002D08 0000 1316 DC X*000 NOT USED 002DB2 2008 1430 RKDCB DC X*200B" CONTROL WORD 
0OO02D0A 0000 1317 DC XtO000'! NOT USED OO2DB4 0000 1431 DC X'0000! NOT USED 
002D0C 0000 1318 DC A (*-* CHAINING ADDRESS O0O02DB6 0000 1432 DC X*Q000! O-7 = PHYSICAL SECTOR # MINUS ONE 
OO02D0E 0100 1319 DC X¥*01700! BYTE COUNT 002D88 0000 1433 DC x'*QO0008 NOT USED 
002D10 0000 1320 DC A (*-*) DATA ADDRESS - OO2DBA 0000 1434 DC X*0000! NOT USED 
1321 * QO2DBC 90000 1435 DC et | CHAIN ADDRESS 
1322 * OO2DBE 0006 1436 pc x'*0006'! BYTE COUNT FOR READ SECTOR ID 
1323 el RECALIBRATE DCB 0O2DCO 260C ag Z DC A (SCTID) SECTOR ID DATA ADDRESS 
002D12 0007 1325 CLDCE DC X*0007! RECALIBRATE DCB 1439 * CONSTANTS AND DEFINED STORAGE LOCATIONS 
002D14 00000000000000000' 1326 DC TA (*-*) Q002DC2 0000 1440 ZEROO DC X 0000 * CONSTANT ZERO 
1327 * 002DC4 0001 1441 ONE DC x'00018 CONSTANT OWE 
1328 ****x WRITE SECTOR ID 002DC6 00000000 1442 TIMEOUT DC ay pal TIMEOUT COUNTER 
1329 * OO0O2DCA 0000 1443 TONE DC X'O0008 CONSTANT FOR ADD DOUBLE 
002D22 0002 1330 WSDCB DC X*0002! WRITE SECTOR ID CONTROL WORD OO02DCC 0001 1444 DC xX*O0001! * 
Q002D24 0000 1331 DC X'00008 NOT USED OO2DCE 0500 1445 COUNT DC F'1280°! BYTE COUNT (raae) 
002D26 0000 1332 DC A (*-* O-7 = PHYSICAL SECTOR # MINUS ONE 002DD0 0000 1446 DIFF DC A (*-* SEEK DIFFERENCE 
002D28 0000 1333 DC A (*-* NOT USED 002DD2 0000 T4477 Xxx DC A (¥*+* WORK WORD INT TO ZERO 
Q002D2A 0000 4334 DC A (*- * NOT USED QOO2DD4 0000 1448 BCNT DC X "000 BYTE COUNT 
002D2Cc 0000 1335 DC A (*-* CHAIN ADDRESS 002DD6 0000 1449 JOE DC A (*-* WRITE PARAMETER POINTER 
002D2E 0006 1236 DC : 0006! BYTE COUNT 002DD8 0000 1450 JOE1 DC A (*-* SAVE LOC FOR PARM LIST ADDRESS 
002D 30 2DE8 1337 DC nee oh ADDR OF SECTOR ID DATA OO2DDA DEB6 1451 WDATA DC X*DEB6! WRITE DATA 
1338 ***** READ SECTOR I DCB HK KKK K OO2DDC 6BED 1452 DC X*6BED! * 
1239 * OO2DDE 0000 1453 TABLE DC r008 ADDR OF WRT PAR LIST FOR FORMAT RTNS 
002D32 200A 1340 RSDCB DC X*200A! READ SECTOR ID OO02DE0 0000 1454 LGSEC DC x*o0000! LOGICAL SECTOR # 
002D34 0000 1341 DC x'O000! NOT USED O0O02DE2 0000 1455 PHYSC DC x'*0000! CONVERTED PHYSICAL SEC # 
002D36 0000 1342 DC xX¥*'*O00008 O-7 = PHYSTCAL SECTOR #€ MINUS ONE OO0O2DE4 1D00 1456 CB29 DC X*'1pD00* CONSTANT BYTE ca 
002D38 0000 1343 DC X¥'0000! NOT USED 002DE6 3B00 1457 FIVES Dc X'*3B00! CONSTANT BYTE 
OO2D3A 00090 1344 pC x*‘0000!* NOT USED OO2DE8 0000 1458 WRSID DC Xx'OO00! FLAG See HELD THRE SECTOR ID DATA) 
002D3C 0000 5345 DC x'oooo!t CHAIN ADDRESS OO2DEA 0000 1459 DC X'0000! CYLINDER AD 
002D3E O0006 1346 DC X*0006* BYTE COUNT FOR READ SECTOR ID OO2DEC 0000 1460 DC X¥*0000! LOG apeROne NOT USED 
002D40 260C 1347 DC A (SCTID) SECTOR ID DATA ADDRESS OO2DEE OOFF 1461 CDAT DC X'OOFF!® INVALID DATA CONSTANT 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COPP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
O02DFO FF34 1462 WSIDT DC X'PF3q! WPTTE SECTOR ID TEST DATA Q02E9C 6F05 2EB6 1577 BNCC 7,CCFRR CHECK COND CODE 
O02DF2 5678 1463 DC X'56781 * OO2EAO 56014 1578 Bx¥S (86,2) PETUPN TO CALLER 
002DF4 9A00 1464 DC X'On00t # 1579 * 
002DF6 0000 1465 SCTST DC x'0000' READ SECIOR ID TEST DATA BUFFER OO2EA2 6EOD 260A 1580 SENSO MVW  R6,LISTTO SAVE ADDRESS OF LAST I0 
002DF8 0000 1466 DC ¥'0000" 002FA6 8028 19D0 2ECS 1581 MVB  DEQADD,IDCBO+1 LOAD DEVICE ADDRESS IN IDCB 
OO2DFA 0000 1467 DC x'ooo0o® * OO2ZEAC 680C 2EC4 1582 Io TDCBO READ SENSE WORD 1 
002DFC 0000 1468 CTRO1 DC x*00008 COUNTER OO2EBO 6F05 2EB6 1583 BNCC 7,€CFRR CHECK COND CODE 
OO2DFE 0000 1469 CTRO2 De X'0000! COUNTER O02EB4 5601 1584 BX¥S (86,2) RETURN TO CALLER 
002E00 0000 1470 CTRO3 DC X*0000! COUNTER 1585 * 
002F02 0000 1471 CTROU DC X'0000' COUNTEP O02EB6 706E 1586 CCERR DC X'706E! COPY STATUS ANY LEVEL INTO R3 
002F04 0000 1472 CTROS DC X'0000! COUNTER O02EB8 336A 1587 SRL  13,R3 POSITION CC CODE TO BITS 13-15 
002F06 0000 1473 CTRO& DC ¥'0000' COUNTER O0O2EBA C328 2606 1588 MVB  R3~°$IO0IN * PUT IN LOG AREA 
002F08 0000 1474 SAVE3 DC X'0000" SAVE AREA OO2EBE 68D2 0000 1589 B (RE) ¥ RETURN TO USER 
O02F0A 0000 1475 SAVR5 DC X'0000! SAVE AREA 1590 * 
002E0C 0000 1476 WR2. DC X'0000" 002EC2 6F05 1591 IORST DC X'6FO5? RESET I0 
O02EOE 0000 1477 SVSEK DC X'0000' O002FC4 2205 1592 IDCBO DC X¥'2905 SENSE WORD ZERO 
0032F10 0000 1478 LCT DC X'0000! 002EC6 0000 1593 RDATAO DC A(#-* DATA WORD 
002F12 0000 1479 T56AA DC X*0000" 002FC8 2105 1594 IDCB1 DC X¥'2105! SENSE WORD ONE 
002E14 0000 1480 T56BB DC X'0000! O02ECA 0000 1595 RDATA DC a (¥—# 
002E16 0000 1481 T56CC DC X'0000' 002FCC 4005 1596 TDCBCE1 pc xtaoose CE DIAG OP1 
002E18 0000 1482 T56DD DC ¥'0000" OO2ECE 0000 1597 CEDAT D A (#—* SENSE DATA 
002E1A 0000 1083 T56EE DC X10000! O02EDO 4105 1598 IDCBCE2 pc x"4105¢ CE DIAG OP2 
002E1C 0000 1484 T56FF DC K'0000! 002ED2 0000 1599 CEDAT2 DC. A(*-# SENSE DATA 
002E1E 0000 1485 T56GG DC x'0000" O0O2ED4 2F05 1600 IDCBPAP DC xX*2FO05" READ DIAG WRAP 
002E20 0000 1486 T86AA DC X'0000' O002FD6 6000 1601 RAPDAT DC. A(#-* SENSE DATA 
002F22 0000 1487 T86BB DC ¥'0000' 000232 1602 CPUID FOU xX*02328 CPU ID 
002E24 0000 1488 T86CC DC X*0000' 1603 * 
002F26 0000 1489 T86DD DC X'0000! 1605 COPY T78I0 01DEC76 
002E28 0000 1490 T86EE DC K'0000t 1606 ** (T78TO) 
OOZEZA 000co0 1491 TSB6FF DC ¥!00008 1607 Kk AE Ae He He He Fe eH RI IK eK KK YD / OT 7 6 HK HR RH RR eK AK KK KK 
002E2Cc 0000 1492 T86GG DC ¥'0000! 1608 * 
002E2E 0000 1493 Th1D. De ¥'0000' 1609 * SUBROUTINE 
002E30 0000 1494 T4ILP DC X'00008 1610 * 
002E32 0000 1495 WRLCT DC x'0000' 1611 * PUREOSE 
002F34 0000 1496 CYLOC DC ¥'0000' 1612 * 
003E36 0000 1497 PASS1 DC A (x 1613 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
002538 0000 1498 HEADO DC A (e—* 1614 * NORMAL AND TEST DATA. 
002E3A 0000 1499 HFAD1 DC A (t-* 1615 * 
002E3C 0000 1500 GDSEO DC h (x 1616 * CALLING SEQUENCE 
O02E3E 0000 1501 GDSE1 DC A (e—* 1617 * 
O02EL0 0000 1502 FROO DC Al 1618 * BAL CMPRW,P6 NORMAL) 
002E42 0000 1503 ERO1 DC Ak 1619 * BAL CMPRT{R6 TEST) 
O02F44G 0000 1504 HDOSV DC A te-* 1620 * 
O03E46 0000 1505 HDISV DC h (#— 1621 * RETURN 
002E48 0000 1506 EROSV DC A (e—* 1622 * 
O02E4A 0000 1507 ER1SV DC A (e—* 1623 * BXS (R6,2) - NORMAL 
002F4C 0000 1508 PATTR DC A (k-* 1624 x 
O02EGE 0000 1509 CECYL DC B(*#-* 1625 * 
O002E50 0000 1510 STATS DC A Kw & 1626 He He He He fe ae He Ye he fe ie eh fe he He ae A he ah Be ec he KE 3c He AK dhe He he he hc ae ae fe 2c ae He hc he ae hc fe i ae he ic ac hc fee ake ae Me a ae ae fe ae ae hc of af Oe ake ic oe fc ak 2c 
1511 * 1627 * 
1513 COPY T78DPCIO 01DECT6 O02ED8 4724 0005 1628 CMPRT MVWI 5-R7 BYTE COUNT 
1514 ** (T78DPCIO) OO2ZEDC 4324 2DF7 1629 NVA  S€TST4+1_R3 ADDR OF RD SECT ID DATA (TEST 
1515 * 2/01/77 O0O2EEO 4524 2DFO 1630 MVA wWSTDT,PS ADDR OF WR SECT ID DATA (TEST 
1516 * EXECUTE DPC INPUT/OUTPUT COMMANDS | O0O2EE4 5006 1631 J T THY 
1517 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: O02EE6 4724 0005 1632 CMPRW MVWI 5,R7 COMPARE BYTE COUNT 
1518 * : OO2FEA 4324 260D 1633 MVA SE€TID4+1,P3 ADDR OF RD SEC ID DATA 
1519 * 1 BAL CEOP1,R6 CE DIAGNOSTIC OP1(TURN JN DIAG MODE) OO2EER 4524 2DE8 1634 MVA  WRSID,RS ADDR OF WR SEC ID DATA 
1520 * : OO2EF2 2BA6 1635 TT4Y CFNEN (R3), (R5) COMPARE ID DATA 
1521 * 2 BAL  CEOP2,R6 WRITE DIAG CLOCK STEP DATA OO2EF4 68C0 0002 1636 BE R63) BCH IF WRITE ID DATA OK 
1522 * : OO2EF8 68D2 0000 1637 B s% COMPAPE ERROR 
1523 * 3. BAL  SENSO,R6 CE READ SENSE WORD ZERO 1638 * 
1524 * ~ 1639 PS FF SP SPSS SSS SSS SSS PSPSPS SSS ESE SSS SL SESS SSE SLL SES EL SSS SSS SS Stet TSS LS + SS F | 
1525 * 4 BAL  SENS1,R6 CE READ SENSE WORD ONE 1640 * 
1526 * : 1641 * SUBROUTINE 
1527 * 5 BAL  WRAP,P6 READ DIAGNOSTIC WRAP 1642 * 
1528 * . 1643 * PURPOSE 
1529 + BXS  (R6,2) RETURN 1euy + CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS 
1531 He He He He He He He oe he He ee oh he HK he he eae he eae ee oe He OK i ie He he ae ae ae he ee ok ae fe ae ae he he fe ae ae aie hk ae ake ofc ae ake ae fe ae ae ae ae ae ake a ote ae ake ae ok 1646 % SETUP LOGICAL SECTOR # IN LOCATION 'LGSEC! 
1532 * 1647 * PHYSICAL SECTOR # WILL BE LOADED IN LOCATION 'PHYSC! 
1533 * CE DIAGNOSTIC OP2 DATA WORD (CLOCK STEP) 1648 * 
1534 * 1649 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION 
1535 * BIT 00 —- SET READY 1650 * LOGICAL- X 00, 1E, 01, 1F, 02, 20, 03, 21, O4, 22, 05, 23, 06, 24, 
1536 * BIT 01 —- RESET READY 1651 * PHYSICAL X 00; 01; 02% 03% 04% 05% 06, 07; 08% 09, Oa, 0B OC, OD; 
1537 * BIT 02 - SET WPRTTE CLOCK 1652 x 
1538 * BIT 03. - SET READ CLOCK 1653 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 
1539 * BIT 04 - INDEX PULSE 1654 * PHYSICAL OE, OF, 10, 11, 12, 13, 14% 15, 16, 17% 18% 197 1A, 1B; 
1540 * BIT 05 —- SECTOR PULSE 1655 * ; 
1541 * BIT 06 —- STANDARD READ DATA 1656 * LOGICAL- OE, 2C, OF, 2D, 10, 2E, 11, 2F, 12, 30, 13, 31, 14, 32, 
1542 * BIT 07 - SPEED PULSE 1657 * PHYSICAL 1C, 1D, 1E, 1F2 207 21% 22° 23% 24% 25% 26 27% 28° 29% 
1543 * BIT 08 - BEHIND HOME 1658 * 
1544 * BIT 09 - SET SEEK COMPLETE 1659 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, 
1545 * BIT 10 —- RESET SEEK COMPLETE 1660 * PHYSICAL 2A, 2B, 2C; 2D, 2E, 2F, 30, 31, 325 33% 34% 35% 36° 37% 
1546 * BIT 11 - PLO OUT OF SYNC 1561 * 
1547 * BIT 12 - PST RD/WRT CLOCK 1662 * LOGICAL- 1C, 3A, 1D, 3B, X 
1548 * BIT 13. - 1663 * PHYSICAL 38% 39/ 3a% 3B’ Xx 
1549 * BIT 14 - 1664 * 
1550 * BIT 15 - RESET DIAGNOSTIC MODE 1665 * 
1551 * 1666 * CALLING SEQUENCE 
1552 He He He he He He HK He IK he He Me he eee he he oe oe a ae oe he he He he We ec ae eae ee he He ak he ie he ice he sec ah fe ae oe he he a Se a ak ake ak of ec ok ek ok oe ok 1667 * 
1553 * 1668 * BAL CONVT,R6 
1554 * 1669 * 
002E52 6EOD 260A 1555 WRAP MVW  R6-LSTIO SAVE ADDRESS OF LAST I0 1670 * RETURN 
002E56 8028 19D0 2EDS 1556 MVB  DEVADD,TDCBRAP+1 LOAD DEVICE ADDRESS IN TDCB 1671 * 
002E5C 680C 2ED4 1557 to IDCBPAP READ SENSE WORD 1 1672 * B (TT 30442) 
002260 6F05 2EB6 1558 BNCC 7,CCERR CHECK COND CODE 1673 * 
OO2F64 5601 Ae ee BXxs (RE , 2) RETURN TO CALLER weue SSS Le SSS STS SS SSS LS SS SLE SSS PSE SSL SSL SSS SS SS SS SSS eS eee ST SSC SSCS SSeS SSS SSS 
1560 * 1675 * 
002E66 6EOD 260A 1561 CEOP1 MVH  R6,LSTIO SAVE ADDRESS OF LAST TI0 OO2EFC 6E0D 2F3C 1676 CONVT MVW R6-TT30442 SETUP RETURN ADDR 
002E6A 8028 19D0 2ECD 1562 MVB  DEVADD, IDCBCE1+#1 LOAD DEVICE ADDRESS IN IDCB 002F00 802B 2DC2 2DE1 1677 CB ZEROO, LGSEC+1 CK FOR LOG # ZERO 
002E70 680C 2ECC 1563 To IDCBCE4 SET DIAGNOSTIC MO 00 2F06 100D 1678 JE TT303 BCH IF LOG # IS ZERO 
002E74 6F05 DEBE 1564 BNCC 7,CCERR CHECK COND CODE 002F08 802B 2DE1 2DE4 1679 CB LGSEC+1,CB29 COMP LOG TO 29 
002E78 5601 1565 BXS (6,2) RETURN TO CALLEP 002FOE 1C0D 1680 JGE  RTTO1 BCH IF LGSEC EQ OR LESS THAN CB29 
1566 * 002F10 4024 0002 1681 MVWI 2,R0 SETUP MULTIPLIER 
O0O2E7A 6EOD 260A 1567 CEOP2 MVW  R6,LSTIO SAVE ADDRESS OF LAST I0 O0O2F14 F821 2DE1 1682 MB LESEC+1,RO LOG SECTOR # TIMES 2 
O02E7E 8028 19D0 2ED1 1568 MVB  DEVADD,IDCBCE2#1 LOAD DEVICE ADDRESS IN IDCB 002F18 7802 003C 1683 SWI 60,80 LOG SEC TIMES 2 MINUS 60 
OOZE84 580C 2EDO 1569 ae) TDCBCE WRITE DIAG CLOCK STEP 002F1C C028 2DE3 1684 MVB  RO’PHYSC#1 PHYSICAL SECTOR NUMBER 
002E88 6F05 SEBE 1570 BNCC 7,CCERR CHECK COND CODE 002F20 500C 1685 J TTSO04 RETURN TO CALLER 
O02E8C 5601 1571 BYS (6,2) PETURN TO CALLER 002F22 8028 2DE6 2DE3 1686 TT303 MVB  #FIVE9,PHYSC#1 PHYSICAL SECTOR # 59 
1572 * 002F28 5008 1687 J TT304G RETURN TO CALLER 
1573 * OO2F2A 4024 0002 1688 RTTO1 MVWI 2,R0 LOAD MULTIPLIER 
O0O2E8E 6EOD 260A 1574 SENS1 MVW  R6,LSTIO SAVE ADDRESS OF LAST I0 OO2F2E E821 2DE1 1689 MB LESEC+1,P0 LOG SECTOR @ TIMES 2 
002E92 8028 19D0 2EC9 1575 MVB  DEVADD,IDCE1+1 LOAD DEVICE ADDRESS IN IDCB 002F32 7802 0001 1690 SWI SUBTRACT ONE 
002E98 680C 2EC8 1576 IO IDCB1 READ SENSE WORD 2 002F36 C028 2DE3 1691 MVB  RO,PHYSC#1 LOAD PHYSICAL SECTOR ¢ 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO02F3A 6802 0000 1692 TT304 B *— RETURN TO CALLER 1807 * 

1693 * 0OO2FD2 4020 3120 2D32 1808 SRIDS MVA RSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 

1694 3 RRR OR RII ORIG OI Iai I III RIK io gO OK io am RCI a ak O0O02FD8 OBFF 1809 MVBI X'FF* 'R3 SET BUFFER TO F'S 

1695 * OO2FDA 4524 2DF6 1810 MVA SCTST, R5 SETUP READ SECTOR ID BUFFER ADRS 

1696 * SUBROUTINE OO2FDE 4724 0006 1811 MVWI 6 5P] SETUP BUFFEP LENGTH 

1697 * OO2FE2 2BAC 1812 FFN & 5) INIT READ SECTOR ID BUFFER 

1698 * PURPOSE OO2FE4 4020 2D40 2DF6 1813 MVA Rae T,RSDCBt14 DATA ADDR 

1699 * OO2FEA 5019 1814 J X10 

1700 * LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC ID BUFFER 1815 * 

1701 * OO2FEC 4020 3120 2DA2 1816 SWKEW NVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 

1702 * CALLING SEQUENCE OO2FF2 4020 2DBO 2DE8 1817 MVA WRSID,WKDCB+14 DATA ADDR 

1703 * OO2FF8 5012 1818 XIO 

1704 * BAL LWSID,R6 1819 * 

1705 * OO2FFA 4020 3120 2D22 1820 SWSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 

1706 * RETURN 003000 4020 2D30 2DE8 1821 MVA WRSID, WSDCB4+14 DATA ADDR 

1707 * 003006 500B 1822 J XIO . 

1708 * BXs (R 6) 003008 4020 3120 2D22 1823 SWSTS MVA WSDCE, IODCB SET UP CONTROL BLOCK FOR SVC CALL 

1709 * 00300E 4020 2D30 2DF0 1824 MVA WSIDT, WSDCB+14 DATA ADDR 

1740 SUR tReet PEREE EATS RUASES SEES S SA CARELEAE CRATES STAAL S ESSA TERE TESTS EES 003014 5004 waee x J XIOo 

1712 * 003016 4020 3120 2D02 1827 SDIAG MVA  DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
eeacas mee ye Or LWSID MVWI St BYTE COUNT 00301c 5000 1828 J XIO 

+ 
OO2F46 Y524 2DE8 1715 Hae 2 tp ers SoGe Oe He eeee 75 ae ae aE ELE Le ee es Le ee nO er ree etre Tr rE re Err nmr rete Pre 
QOO2F4A 2BA4 1716 MVEN G3) ? (RB) MOV DATA FROM RD TO WR BUFFER 1831+* 
0O0O2F4C 5600 ea : BXS PETURN TO CALLER eee SUB-ROUTINE 
+ 

1720 * : 1834+* EXECUTE INPUT AND OUTPUT COMMANDS 

1721 * EXECUTE INPUT & OUTPUT COMMANDS 1835+* 

1722 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1836+* PURPOSE 

1723 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 1837+* 

1724 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 1838+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 

1129 : SUPVP CALL. 19394 THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 

« + 
1327 : THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 1Budee 1. SAVE THE. ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
i + 
1729 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 1843+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
1730 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 18444+* ISSUED BY THIS SUBROUTINE. 
1731 * 1845+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
1732 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 18 464% START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
1733 * 2 1847+ 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 
1734 * 1 BAL SRKEW,F6 READ SECTOP ID SKEWED 1848+* SINCE THE LAST EXPECTED INTERFPUPT. IF AN INTERRUPT IS FOUND, 
1735 * ‘ 1849+ MYSTERY INTERRUPT (NT) CONTROL BIT IS SET. 
1736 * 2 BAL SWKST, F6 WRITE SECTOR ID SKEWED (TEST) 1850+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7 see THE 
1737 * 1851+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SVG START". 
1738 * 3 BAL SRWST,PE READ SECTOR ID SKEWED (TEST) 1852+* 6. WHEN THE SUPVR RETUPNS AFTER ISSUING THE I/0 COMMAND. TIMING 
1739 * s 1853+* STARTS TO DETERMINE A LOST INTERRUPT. 
1740 * 4 BAL SRIDS, PE READ SECTOR ID (TEST) 1854+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
1741 * 1855+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
1/42 * 5 BAL SWUKEW, R6 WRITE SECTOP ID SKEWED 1856+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
1743 * . 1857+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETUPN. 
1744 * 6 BAL SWSEC,P6 WRITE SECTOR ID 1858+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
1745 * g 1859+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
1746 * 7 BAL SWSTS ,R6 WPITE SECTOR ID (TEST 1860+* 2. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
A747 * ‘ 1861+* ISSUED BY THIS SUBROUTINE. 
1748 * 8 BAL SDIAG ,R6 DIAGNOSTIC 1862+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
1749 * 5 1863+* CYCLE STFAL STATUS COMMAND. CHECK FOP ANY OTHER BIT BEING ON, 
vi20 : 9 BAL XIOCS,R6 CYCLE STEAL STATUS neues COUNT IT AND SET UP THE PROPEP ERROR MESSAGE TO BE PRINTED. 
* + 

Vi2e : 10 BAL SSEEK,R6 SEEK 1866¢* CALLING SEQUENCE 
é + 

ied : 11. BAL SRECL,F6 RECALIBRATE LA THIS POUTINE HAS THE FOLLOWING ENTRIES: 
; + 

1756 * 12 BAL SRDID,R6 READ SECTOR ID 18704* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 

1757 * : 1871+* --> BAL XIO1 MOD PARM PRELOADED IN 'IOMOD® 

1758 * 13. BAL SRD,F6 READ 1872+* --> BAL XIOCS,R6 OP XEQ STAPT CICLE STEAL STATUS, MOD= 

1759 * s 1873+* --> BAL XIOCS—-4 ,R6 AUTO CS STATU 5 AEOLLONING OTHER X10 

1400 : 14 BAL SRDVY,R6 READ VEPIFY ae : AND DOES NOT POST INTERRUPT STATUS) 

; + 

1762 * 15 BAL SWRT,R6 WRITE 1876+* RETURN CONTROL 

1763 * 1877+%* 

1764 * 1878+* BXS R6 2) PETURN TO USER NO ERROR 
OO2F4E 4020 3120 2D52 1765 $SEEK MVA  SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1879+* OR B R6 | * RETURN AND RETRY ON ERROR 
OO2F54 5064 1766 J XIO V BBO 4 RK HH MK He He He he HE He ee Oe ae He a he OK 2 2 ee 3h ae He IK ae cae fe ae oh ie Ree ae 3c he ae ee ae oe he he oe i 2 ae eK Ke ok 

1767 * 00301E CB25 3122 1882+ xIO MVWZ IOMOL,R3 SET MOF OF 0 FOR CYCLE STEAL OP 
0OO0O2F56 4020 3120 2D12 1768 SRECL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL 003022 5OOA 1883+ J XI01 CS I/O'S ARE NOT RETRIED 
0O02F5C 5060 1769 J XIO 18844+%* 

1770 * 003024 4CAA 1885+ TBTR (Rites RESET CS STATUS INTER EPROR INDICAT. 
OO2F5E 4020 0 2D32 1771 SRDID MVA RSDCB,IODCB SET UP BLOCK FOR SVC CALL 003026 4C68 1886+ TBIS R4Y,CS SET "CYCLE STEAL STATUS! IN PROGRESS 
OO2F64 OBFF 1772 MVBI X'FF',R3 SET BUFFER TO F'S 003028 4020 3120 2D62 1887+XIOCS MVA CSDCB CB SET UP CONTROL BLOCK FOR SVC CALL 
OO2F66 4524 260C 1773 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 003028 4020 3122 OOO0F 1888+ MVWI x'oo0ft, TOMOD SET CYCLE STEAL MODIFIER 
OO2F6A 4724 0006 1774 MV WI 6 gl SETUP BUFFER LENGTH 003034 4¢28 1889+ TBT {RE .C S) IS CS IN PPOGRESS, ERROR CONDITION 
OO2F6E 2BAC 1775 FFN 34 AP 5) INIT RFAD SECTOR ID BUFFER 003036 1213 1890+ JON To2 * YES, BYPASS SAVING I/0 ADRS 
002F70 4020 0 260C 1776 MVA sch D,RSDCB+14 DATA ADDR 003038 6E0D 260A 18914+XI0O1 MVW R6,LSTIO SAVE TAR FOP RETRY IF PEQUESTED 
002F76 5053 1777 J XIO 00303C 4324 2614 1892+ MVA DCBUF,R3 SET UP TO ADPS TO MOVE DCB TABLE 

1778 * 003040 6D08 3120 1893+ MVW TODCR,R5 * AND THE FROM ADRS, ALONG WITH 
Q002F78 OBFF 1779 $RD MVBI X'!FF!',R3 SETRD RUFFER TO ALL F'S 003044 OF10 18944 MVBI 16,87 * THE NUMBER OF MOVES 
OO2F7A 6D08 2DA0 1780 uVW RDDCBS 14 R5 SET UP READ BUFFER ADRS 003046 2D64 1895+ MVFN (RS) e483) MOVE 1 STATUS WORD AND ADJUST 
QO2F7E 4724 0100 1781 MVWI sete £7 SET UP BUFFER LENGTH 003048 OBFF 1896+ MVBI 55 CLEAR CYCLE STATUS BUFFER 
OO2F82 2BAC 1782 FFN 5) | CLEAR READ BUFFER 00304A 4524 2624 1897+ MVA 235 4b R5 * TO ALL ONES * 

OO2F84 4020 3120 2D92 1783 SRDS MVA £6d8s ODCR SET UP BLOCK FOR SVC CALL OO304E OF10 1898+ MV BI Sots * 
OO2F8A 5049 1784 J XI 003050 2BAC 1899+ FFN R3 . 5) * 

1785 * 003052 4020 2606 0708 1900+ MVWI x'6708',SIOIN OVERLAY OLD CONDITION CODES 
OO2F8C 4020 3120 2D82 1786 SRDVY MVA VPDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003058 CB25 2608 1901+ MVWZ SISB,P3 ZEPO OUT OLD ISB VALUE 
O002F92 5045 1787 J XIO 1902+* 

1788 * ; 00305C 4CA1 1903+ TBIR pereee RESET ANY ERROP BEFORE I/O COMMAND 
0O02F94 4020 3120 2D72 1789 S$WRT MVA WRDCB,TODCB SET UP CONTROL BLOCK FOR SVC CALL QO305E 4CA3 1904+XTO2 TBTR RY CLEAP INTERRUPT RECEIVED CNTL BIT 
OO2F9A 5041 1790 J XIO 003060 4724 311C 1905+ MVA 1oplk 7 SET UP CONTROL BLOCK FOR SUPVB 

1791 * 003044 4CA6 1906+ TBTR pa, SLE) RESFT LEVEL ERROR INDICATOR 
002F9C 4020 3120 2DB2 1792 $RKEW MVA RKDCB, TODCB SET UP CONTPOL BLOCK FOR SVC CALL 003066 4C62 1907+ TBTS PY ,XT) SET EXPECTED INTR CONTROL BIT 
OO2FA2 OBFF 1793 MVBI X'FF!,® SET BUFFER TO F'S 003068 600A 1908+ SVC TART CALL SUPVR FOR 1/0 COMMAND 
OO2FA4 4524 260C 1794 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADPS 1909+* 

OO2FA8 4724 0006 1795 MV WI 6 rae SETUP BUFFER LENGTH 00306A 4CAT 1910+ TBTR R4,NT) IS AN INTR EXPECTED 
OO2FAC 2BAC 1796 FFN £ 5) INIT READ SECTOR ID BUFFFR 00306C 6ACO 0002 1911+ BN R6,2) * NO, PETURN TO USEP 
OO2FAE 4020 2pc0 260cC 1797 MVA Bas D,PKDCB+14 DATA ADDP 1912+ 
OO2FB4 5034 4338 : J X1O ee THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
002F36 4020 3120 2DA2 1800 SWKST MVA WKDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 003070 OD00 1915+ MVBI xX'00!t,R5 SET UP WORK REG FOR *LOST INTR® 
OO2FBC 4020 2DR0 2DF0 1801 MVA WSIDT, WKDCB+14 DATA ADDP 003072 4CA3 1916+XI08 MTBTR R4,I HAS INTERRUPT BEEN RECEIVED 
002FC2 502D 1802 J XIO 003074 1238 1917+ JON TOCK * YES, CHECK IF ALL WAS SATISFACTOPY 

1803 * 003076 6002 1918+ SVC IDLE ALLOW ANOTHEP PROGRAM A CHANCE TO RUN 
OO2FC4 4020 3120 2DB2 1804 SRWST MVA RKDCB,IODCB SFT UP CONTROL BLOCK FOR SVC CALL 1919+% SUPVR WILL RETURN HERE 
OO2FCA 4020 2DCO 2DF6 1805 MVA SCTST, RKDCB+14 DATA ADDR 003078 7DA1 0001 1920+ AWI 1,R5 ADVANCE TIME OUT COUNT 
OO2FDO0 5026 1806 J XIO 00307C 18FA 1921+ NZ x {08 BCH IF TIME OUT NOT REACHED 
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OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
4C61 1922+ TBTS RY,_ER SET ON ERROR CONTROL BIT 0030C6 6FOD 2608 20394 MVW R7,51SB SAVE INTR STATUS AND DEV ADRS IL 
68D2 0000 1923+ B [e6{* ERR 'NO INTERRUPT! OO30CA Z040+INTR2 EQU + IL 
1090 542 ORR OIC OR IO IGG GIG IO I RR ia got kia dk taka 4k 0) 3 F EB 7 6 ** 2041+* CPCL = R5 CUPPENT LEVEL COPIED BY DCP IL 
13363 gpigca 3833 Hn ee Saree | Ce 
+* 30CC + 
et ane Ba3005 SBge 758 ie Se Ears eS yEETs SME OPER Tepe tere: 
+* ERROR HANDLING ROUTINE OD + 
esate EhON eRe z si 0030D4 4C66 2046+ TBTS (R4,$LE) SET IffR LEVEL ERROR CONTROL BIT IL 
19314+* PURPOSE 0030D6 4Cé61 2047+ TBTS (RG VER SET ERROR ON I/O COMMAND CNTL BIT IL 
83302 30308 583 ggigetvans oath (tee iP dM EEUPR EEG? lene uaven Ht 
19334% THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 30DA + : 
1934+* PPOBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE 0030DC 4cé60 2050+ TBTS (R4,MI) * NO,’ SET MYSTERY INTR CONTROL BIT TIL 
1935+% SUPERVISOR AND IT WAS NOT ACCEPTED. 0030DE F304 2051+ CBI. 4,R3 ATTENTION INTERRUPT? TL 
1336+4 963089 1001 gobgs TEL, WAEEE RES uae teecncn.a au Ruti iL 
7+* C ING EQUENCE E C6C + 
133 ate BoE Cee O0O30E4 6006 20544INTRX SVC {ert EXIT fHIS LEVEL VIA SUPVR TO PGM TL 
1939 +4+* SUPVR WILL ENTER WHEN AN ERROR OCCURS OW AN r/o COMMAND BOC APE e Rae cere eee Ane e Te eter eet Pen Ry nate tee Oe een ee 
1940+* 2057+* 
19414* RETURN CONTROL 2058+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
1942+% 20594 HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BFEN 
1943+* B (R6) * RETURN TO USERS EPROR HANDLER 2060+% RECEIVED AND BPANCHES HERE TO CHECK FOR ANY ERROP CONDITIONS. 
19444+* + 
1 DUS HK He eR ke a 2 ae 2k eR kc a ea ae afc ae ke 2k ak Re af ea 2 fe ae a ae a fe ac ie a 2 a 2 2 a he ie i ie ie 2k a ae ae 2 te 2 i he a ic 2k ak ic 2062+* 
19464% 0030E6 4CA4 2063+XIOCK TBTR RA, XE) WAS AN ERROR EXPECTED 
19 474#* CC O= DEVICF NOT ATTACHED O0030E8 6ACO 0002 2064+ BN rae * YES EXIT THIS ROUTINE 
1948+* FOR 1= DEVICE BUSY OO30EC 4CA8 2065+ TBTR a! CS) WAS AGTO CS IN PROGRESS 
1949+* T/0 2= DEVICE BUSY AFTER RESET = OO30EE 1006 2066+ JOFF ToeyV * NO capa en CHECKING 
1950+* 3= COMMAND REJECT OOD30FO GC2A 2067+ TBT ies CE) tS c§ I AN ERR CONDITION 
1951+* Y= INTERVENTION REQUIRED 0030F2 1002 2068+ JOFF Toco * NO ier 
19524 5= INTERFACE DATA CHECK 0030F4 68D2 0000 2069+ B R6) * cs ERROR 
1953+%* 6= CONTROLLER BUSY 0030F8 4c69 2070+XIOCO TBTS (R4G,CSA) TURN ON CS STATS AVAIL FLAG 
1954+ J= T/O COMMAND EXCEPTED OO30FPA 5601 2071+ BXS R6,2 GO TO USER 
1955+4* 0030FC 4c21 2072+XIOCV TBT PALER) WAS EPROP INTR CONTROL BIT ON 
706k 19564+XIOER DC X'7O6E! COPY STATUS ANY LEVEL INTO R3 OO30FE 100B 2073+ JOFF TOCX * NO, EXIT THIS ROUTINE 
336A 19574 SRL 13,BR3 POSITION CC CODE TO BITS 13-15 20744 
C328 2606 1958+ MVB R3,$I0IN * PUT IN LOG OUT AREA 003100 C520 2607 2075+ MVB SIOIN+1, R5 GET LAST INTR CC CODE 
68D2 0000 1959+ B (RO) * RETUPN TO USER ERROR HANDLER 003104 F502 2076+ CBI IS THIS CC=2 
196 1 43k RIO OO IGOR OR IGG i gigi i iiotiokiokoiok kok ak gatiok atk tote 1 UA PR 76 003106 68D1 0000 2077+ BNE (fers * NO, BCH TO ERROR HANDLER 
1962+% L 00310A C520 2608 2078+XIOCQ MVB TSB,R5 Get £AST ISB DATA BYTE AND IF CS 
1963+#* SUB-ROUTINE IL 00310E 6A00 3024 2079+ BN x10co-l * AVAILABLE, GO AND GET IT 
1964+* IL 003112 68D2 0000 2080+ B RO) ERROR 
1965+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL ‘SINTL* IL 003116 CB25 2602 20814#+XIOCX MVWZ §pe 3,R3 CLEAR OUT OPTION 3 CNTL BITS 
1966+* TL OO311A 5601 2082+ Bxs (26 12) RETUPN TO USFR VIA REG 6 
1967+* PURPOSE TL 2083+* 
1968+% Il 2084+ T/O PARAMETER LIST 
1969+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVFP DETECTS AN ERROR TL 2085+4+* 
1970+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE TL 00311C 19D0 20864+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1971+* EXPECTED CODE. TL 003118 3084 2087+ Dc A XITOER) ERROR ROUTINE ADRS 
1972+% IL 003120 0000 2088+IODCR DC A (#-* DCB ADRS OR LEVEL & INTR 
19734+* CALLING SEQUENCE IL 003122 0000 2089+TOMOD DC A ee MODIFIEP 
19744% IL 003124 0000 2090+ DC A (kA ADRS OF LAST SVC CALL 
doce SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN T/0O INTERRUPT 003126 0000 awe ae DC A (*¥-* SECOND WORD OF LAST IDCB 
+ , + 
1977+* RETURN CONTROL TL ! 2093+4+* INTEPRUPT CONTROL BLOCK FOR I/0 COMMANDS 
1978+* TL | 2094+ 
1979+ SVC EXIT RETUPN TO USER VIA SUPVP TL 003128 19D0 20954INTBL DC A (DEVADD) ADRS OF DEVICE ADFS 
1980+* IL 00312A 3084 2096+ DC A (INTOK INTERRUPT OK RETURN ADRS 
1D BY Ro ie He 2 he he he he Ae a ae he ke ee he fee 2c a hee 2 ac a ai 2 ake he 2c i a Re i Re fe he i 2 a a eae i ee i a a eK TT 00312C 3090 2097+ DC A INTER TNTERRUPT ERPOR ADRS 
1982+* TL 00312E 0003 20984+INTCC DC x'oo03F INTERPUPT CODE EXPECTED 
19834* CC O= CONTROLLER END ISB = ADD STATUS IL D1 OOF RH HH ee Re He a A ate fe ee he ee i he Se Re i ee ie ae Re eo a ee Fe a he ee ke ok ok eK a KK KK TM AY 76** 
1984+4+* FOR 1= PPOGRAM CONTROL INTERRUPT PITS = COMD REJECT IL 2101+* 
1985+* INTP 2= EXCEPTION INTEPPUPT FOP = TNCOR LENGTH TL 2102+* SUBROUTINE 
1986+* 3= DEVICE END INTFRRUPT INTR = DCB SPEC CK TL 21034+* 
198 7+* Y= ATTENTION INTERRUPT = STG DATA CK IL 210 44+* CONNECT INTERRUPT CONTROL BLOCK & FREPARE DEVICE 
1988+* 5= ATTENTION 7 PPOGRAM CNTL INTP = INV STG ADFS IL 2105+* 
1989+ 6= ATTENTION / EXCEPTION INTPR = PROTRCT CK TL 2106+* PURPOSE 
1990+ 7= ATTENTION / DEVICE END INTR = JI-FACE DATA IL 2107+ 
1991+* IL 21084+% TO CONNECT THE INTEPRUPT CONTROL BLOCK TO THIS DEVICE AND 
TO6E 194S24INTER DC X'7JO6E* COPY STATUS ANY LEVEL INTO B3 TL 2109+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
336A 1993+ SRL 13,R3 POSITION INDICATORS IN R3 IL 2110t* TO INTEPRUPT. 
44u24 25FE 199U4 MVA OPfN1,R4 SET UP BASE ADRS TL 3111+% 
4C28 1995+ TB (RY c$) TS CS IN PROGRESS TL 21124* CALLING SEQUENCE 
1006 1996+ JOFF IntéS * NO IL 2113+% 
UC6A 1997+ TBTS (RY ene TURN ON CYCLE STEAL INTER EFROR TL 21144 THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
6FOD 2632 1998+ MVW R7,CST 8 SAVE CS EFPR ISB VALUE, BRITS O-7 TL 2115+* 
C328 2633 1999+¢t MVB R3,CSTL8+1 * AND THE COND CODE TL 2116+* --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
500A 2000+ J INTR1 IL 2117+%* --> BAL €CONP, 86 PPEPARE DEVICE ONLY, ALREADY CONNECT 
C24 20014+INTES TRT (R4,XE) TEST EXPECTED ATTEN / EPPOP IND TL 2118+%* 
1002 2002+ JOFF INTET BCH IF NOT EXPFCTED TL 2119+* RETURN CONTROL 
F304 2003+ CRI 4,FR3 IS THIS AN "ATTENTION! INTP TL 2120+4+* 
1006 2004+ JE INTR1 * YES ECH TO END INTPR SEQUENCE TL 2121+4+%* BXS R6 RETURN TO OSER VIA KEG 6 IF OKAY 
enon sone ce seaee) SET ERROR ON I/O COMMAND CNTL BIT re es OR B bets IF THE DEVICE COULD NOT BE CONNECTED 
+ I + 
2007+* THE ERROR INTERRUPT USES THE SAME TIL DVD UY eH HR He RK ee a he he 2 2 af ef ee 2 fe fee ae 2 ee 2 ee ae che ee ie ee ie i eee he ae he ee a ce ee ee ce HK He a ie ee 2 ke ee 
20084+* ENDING SEQUENCE AS THE NORMAL INTR IL 003130 OFO6 21254+$CONC MVBI 6,F7 NOMBER OF BYTE TO CLEAR 
DO 1 OF HR RM He He ee He ae he He ee a he a ote afc ee ate 2 2c ef i fk af ae he ae ate ec ate oe tk ke ake a ik fe ake ke ae fe ae oe ok ok aK PUA DR J6ETL 003132 0B00 2126+ MVR ¢) "R3 * AND THE DATA TO USE 
20114 IL 003134 4524 260C 2127+ MVA  DEV1,R5 * ALONG WITH THE ADPS TO USE 
2012+* SOUBROUTINE IL 003138 2BAC 2128+ FFN  R3 (B5) * 
2013+% TL 00313A CB25 2602 2129+ MVWZ OPTN3,83 CLEAP OLD CONTROLS FOR NEW ROUTINE 
20144+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL! IL 00313E 4724 3128 2130+ MVA  INTBL,R7 SET R7 TO CONTPOL BLOCK AND 
3015+* IL 003142 6014 2131+ SVC. CICB * CONNECT IT TO THTS DEVICE 
2016+% PURPOSE TL 003144 6AD0 0000 g 132+ BN (R6) * EPROP PETUPN TO USEP 
+ 
20184+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 003148 8828 263A 3120 21344+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
2019+* TL OO314E 4724 311C 2135+ MVA TOBLK,R7 SET R7 TO CONTFOL BLOCK TO PREPARE 
2020+* CALLING SEQUENCE TL 003152 4020 2606 0708 2136+ MVWI x'0706', S$IOIN INITIALIZE CONDITION CODE STOPAGE 
2021+* IZ 003158 CB25 2608 2137+ MVWZ $ISB R3° * AND CLEAR OLD ISB VALUE 
2022+* SUPERVISOR WILL ENTER HEPE IF INTP CC IS AS REQUESTED TL 00315C 6B0D 260A 2138+ MYW RO LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
2023+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS POUTINE IL 003160 600C 2139+ SVC pebp * AND CALL ON SUPVR 
2024+* AFTFR THE SPECIAL PAPT HAS BEEN COMPLETED AND THE TL 003162 5601 2740+ BXS (R6 2) RETURN TO USER 
eoeece COMMON SECTION IS HANDLED HERE. TL DVD A RR KK KK AKL HE Ae Re fee ae a He 2 he oe a ie fe a ef ote fe ae ae ie he ke oh ae a ee ok fe i he ok a aca ok ok kk kK KKOGKADR 76 ** 
0264+* TL 2143+% 
2027+* RETURN CONTROL TL 21444+* SUBSOUTINE 
2028+4% ae 21454+* 
ae SVC EXIT PETURN TO USEP VIA SUPVR at ee DISCONNECT THE INTERRUPT CONTRCL BLOCK AND LOG ERPORS 
; + 
2O 37 tM HK HH He he ee Re i 2h 2 ae ae ae af ae he he a ae ee ae ae i 2 ie ie ae ae ae fc a 2 ae ake fe ok ae ake ie ok fe ke fe oe ok oe kok ke ok oT YL 2148+ PURFOSE 
106E 2032+INTOK DC X*706E° COPY STATUS ANY LEVEL INTO R3 TL 2149+ 
336A 2033+ SRL 13,3 POSITION INDICATORS IN B3 TL 2150+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
G4u2u 25FE 2034+ MVA OPfN1 RY SFT UP BASE ADRS TL 21514* SET THE "NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
4C63 2035+ TNTR1 TBTS (ed, TK SET INTERPPUPT PECEIVED TL 2152+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE EPRCP CONDITION. 
4C28 2036+ TBT PY IS 'CS IN PPOGRESS! ON IL 2153+* 
1204 2037+ JON tnrk2 * YFS RCH AROUND UPDATE TL 2154+* CALLING SEQUENCE 
C328 2607 2038+ MVR R3,S5IOIN+1 SAVE InTEPRUPTING CC CODE TL 2155+* 
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17813 --- EXERCISE SEEK AND PEAD P/N=1635248 EC=755285 PAGE 11 17813 --- EXERCISE SEEK AND READ P/N=1635248 EC=755285 PAGE 11A 
CROSS-REFEFRENCE LISTING COPYRIGHT TBM CORP 1976 CPOSS-PEFEPENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTPIBUTES AND PREFERENCES 
1676 CONVT ADDRESS. HEX LOCATION(OOOO2EFC) IN CSECT(I7813  ) LENGTH(4) 2086 IOBLK ADDRESS. HEX LOCATION(0000311C) IN CSECT(I7813  ) LENGTH(2) 
748 768 921 1176 1196 903. 957 1148 1905. 2135 
1602 CPUID ABSOLUTE. HEX VALUE (00000232) 2088 TODCB ADDRESS. HEX LOCATION (00003120) IN CSECT (17813 ) LENGTH (2) 
879 1138 1765 1768 1771 1783. 1786 #1789 1792 1800 1804 
457 cs ABSOLUTE. HEX VALUE (00000028) 1808 1816 1820 1823 1827 1887 1893 2134 
1886 1889 1995 2036 2065 2089 TOMOD ADDRESS. HFX LOCATION(00003122) IN CSECT(I7813  ) LENGTH (2) 
458 CSA ABSOLUTE. HEX VALUE (00000029) 1882 1888 
1027. 1219 66 2070 40 17813 CSECT. START(00002500) LENGTH (3540) ESDID(0) 
488 CSBUF ADDRESS. HEX LOCATION (00002624) IN CSECT(I7813  ) LENGTH (1) 40 
1029 4065, 1163) 1221 1268-1995 7389. 1897 1454 LGSEC ADDRESS. HEX LOCATION (00002DE0) IN CSECT(I7813_) LENGTH(2) 
1375 CSDCB ADDRESS. HEX LOCATION(00002D62) IN CSECT(I7813  ) LENGTH(2) 747 765 767 920° 928 uO 942 1175 1186 
7 1188 12£5 1256 1677 1679 1682 1689 
490 CSTL2 ADDPESS. HEX LOCATION (00002626) IN CSECT(I7813  ) LENGTE(2) 2202 LINE1 ADDRESS. HEX LOCATION(000031F6) IN CSECT(1I7813  ) LENGTH (40) 
496 CSTL8 ABBRESS. HEX LOCATION (00002632) IN CSECT(I7813. ) LENGTH(2) 710 LOOP1 ADDPESS. HEX LOCATION (000026F0) IN CSECT(I7813  ) LENGTH (2) 
478 DCBUF ADDRESS. HEX LOCATION(00002614) IN CSECT(I7813  ) LFNGTH(1) 472 LSTIO ADDPESS. HEX LOCATION (00002602) IN CSECT(I7813. ) LENGTH (2) 
892 1555 1561 1567 1574 1580 91 2138 
2213 DC2PT ADDRESS. HFX LOCATICN(000032C8) IN CSECT(I7813  ) LENGTH(2) 1713 LWSID ADDRESS. HEX LOCATION (OO0002F3E) IN CSECT(I7813. ) LENGTH(4) 
108 DEVADD ADDRESS. HEX LOCATION (000019D0 IN CSECT(I7813 __) LENGTH(1) 449 MT ABSOLUTE. FEX VAIUE (00000020) 
503 686 1556 1562 1568 75 1581 2086 2095 2050 
2192 2176 MV BUF ADDRESS. HEX LOCATION(00003182) IN CSECT(I7813  ) LENGTH(2) 
u73 DEV1 ADDRESS. HEX LOCATION(0000260C) IN CSECT(17813  ) LENGTH (2) 2180 2183 
477 2127 461 NG ABSOLUTE. HEX VALUE (0000002C) 
1313 DGDCB ADDRESS. HEX LOCATION(00002D02) IN CSECT(I7813  ) LENGTH(2) 2053 
1827 456 NI ABSOLUTE. HEX VALUE (00000027) 
1446 DIFF ADDRESS. HEX LOCATION (00002DD0) I IN CSECT(I7813  ) LENGTH(2) 1910 
70 713, 04«719~—Oo7 78 342 N00001 ADDRESS. HEX LOCATION (00002518) IN CSECT(I7813  ) LENGTH(2) 
70 DUMMY ABSOLUTE. HEX VALUE(00000000) 318 ; 
333. 374 86 354 N00002 ADDRESS. HEX LOCATION (00002532) IN CSECT(I7813  ) LENGTH(2) 
375 ENTPT ADDRESS. HEX LOCATION (00002558) IN CSECT(I7813  ) LENGTH(1) 321 
201 357 N00003 ADDRESS. HEX LOCATION (00002536) IN CSECT(I7813  ) LENGTH(2) 
50 EQ ABSOLUTE. HEX VALUE (00000000) 324 3 
345 360 369 N00004 ADDRESS. HEX LOCATION (0000254E) IN CSECT(I7812  ) LFNGTH(2) 
450 ER ABSOLUTE. HEX VALUE (00000021) 327 
681 696 700 772 797 910 917 951 372 N00005 ADDRESS. HEX LOCATION (00002552) JN CSECT(I7813  ) LENGTH (2) 
967 1025 1154 1161 1172 1180 1194 1204 1238 330 358 
1264 1286 1903 1922 2005 2047 2072 14414 ONE1 ADDRESS. HEX LOCATION(00002DC4) IN CSECT(I7813  ) LENGTH (2) 
1506 EROSV ADDRESS. HEX LOCATION (00002E48) IN CSECT(I7813  ) LENGTH(2) 715 758 761 780 
891 986 1011 414 OPTN1 ADDRESS. HEX LOCATION(OO0025FE) IN CSECT(I7813  ) IENGTH(2) 
1502 EP0O ADDRESS. HEX LOCATION(00002E40) IN CSECT(I7813  ) LENGTH(2) 669 875 1134 1994. 2034 
901 973 976 986 1011 1049 437 OPTN3 ADDRESS. HEX LOCATION (00002602) IN CSECT(I7813  ) LENGTH(2) 
1503 ERKO1 ADDRESS. HEX LOCATION (O0002ZE42) IN CSECT(I7813. ) LENGTH (2) 791 2081 2129 
902. 987 990 1000. 1017 1047 104 PARMARA ADDPESS. BEX LOCATION(0000196F) IN CSECT(I7813  ) LENGTH(1) 
1507 EP1SV ADDPESS. HEX LOCATION(OOOO2EUA) IN CSECT(I7813  ) LENGTH(2) 352 367 
892 1000 1017 1497 PASS1 ADDRESS. HEX LOCATION (00002F36) IN CSECT(I7813  ) LENGTH(2) 
525 EXIT ABSOLUTE. HEX VALUE(00000006) 887 971 10 
2054 1455 PHYSC ADDPESS. HEX LOCATION (00002DE2) IN CSECT(I7813  ) LENGTH(2) 
2215 FAKETU > RRDRESS. HEX LOCATION (000032CC) IN CSECT(I7813. ) LENGTH(2) sate 183 922 1177. 1197 1198 1199 1200 1684 
783 FINS ADDRESS. HEX LOCATION (00002706) JN CSECT(I7813  ) LENGTH (6) 72 PID ADDRESS. HEX LOCATION (00001800) IN CSECT(I7813 ), LENGTH (1) 
725... 727..«729~C*«=7#3'1 33 44 74 75 76 77 78 75 80 81 2 
1457 FIVES ADDRESS. HEX LOCATION(00002DE6) IN CSECT(I7813  ) LENGTH(2) 83 84 85 86 87 88 89 90 91 
1686 92 93 94 95 96 97 98 99 100 
394 F00016 ADDRESS. HEX LOCATION (0000255E) IN CSECT(I7813  ) LENGTH (1) 101 102 103 #4104 #+#+#$§.105 106 (107 108 #109 
355 110 111 112 #2113 «2114 =~ «24115 «2184 
400 F00023 ADDRESS. HEX LOCATION (00002596) IN CSECT(I7813. ) LENGTH(1) 2216 PI DMSG 10 ABSOLUTE. HEX VALUE (0000F1FO) 
404 F00027 ADDRESS. HEX LOCATION(000025CE) IN CSECT(I7813  ) LENGTH(1) 531 PREP > ABSOLUTE. HEX VALUE (0000000C) 
1500 GDSEO RDDRESS. HEX LOCATION (00002E3C) IN CSECT(I7813. ) LENGTH(2) 1408 RDDCB ADDRESS. HEX LOCATION (00002D92) IN CSECT(I7813  ) LENGTH (2) 
1501 GDSE1 ADDRESS. HEX LOCATION (00002E3E) IN CSECT(I7813. ) LENGTH (2) 1022 PDID ADDRESS. HEX LOCATION(00002A46) IN CSECT(I7813  ) LENGTH (4) 
743 GO1 ADDRESS. HEX LOCATION(00002752) IN CSECT(I7813  ) LENGTH(1) 527 RESET ABSOLUTE. HEX VALUE (00000008) 
1504 HDOSV ADDFESS. HEX LOCATION (0000244) IN CSECT(I7813  ) LENGTH(2) 538 RICB ABSOLUTE. HEX VALUE (00000013) 
1505 HD1SV ADDRESS. HEX LOCATION (00002E46) IN CSECT(I7813  ) LENGTH(2) 1352 RIDCB ADDRESS. HEX LOCATION(00002D42) IN CSECT(I7813  ) LENGTH(2) 
1498 HEADO ADDRESS. HEX LOCATION (00002E38) IN CSECT(I7813 ) LENGTH (2) 1430 PKDCB ADDRESS. HEX LOCATION(00002DB2) IN CSECT(I7813  ) LENGTH(2) 
897 939 979 982 98 01 1 1200 1792 1797 1804 1805 
1499 HEAD1 ADDRESS. HEX LOCATION (OOQQ2F3A) IN CSECT(I7813 ) LENGTH (2) 1340 RSDCB ADDRESS. HEX LOC ATION (00002032) IN CSECT(I7813 } LENGTH (2) 
898 93 993 99 999 3 689 692 693 749 769 19 922 1174 1177 
2221 HEBLK ADDRESS. HEX LOCATION(000032CE) IN CSECT(I7813  ) LENGTH(2) 1197. 1771 1776 1808 1813 
2168 1688 RTTO1 ADDRESS. HEX LOCATTON(00002F2A) IN CSECT(I7813  ) LENGTH (4) 
545 HTOE ABSOLUTE. HEX VALUE(0000001A) 1680 
2169 784 RTY22 ADDRESS. HEX LOCATION(000027D2) IN CSECT(I7813  ) LENGTH (2) 
1596 IDCBCE! ADDPESS. HEX LOCATION(OO002FCC) IN CSECT(I7813  ) LENGTH(2) 705 
1562. 1563 785 RT201 ADDRESS. HEX LOCATION(000027D4) IN CSECT(I7813  ) LENGTH(2) 
1598 IDCBCE2 ADDRESS. HEX LOCATION(00002FDO) IN CSECT(I7813  ) LENGTH(2) 703 
1568 1569 | 764 PT203 ADDRESS. HEX LOCATTON(00002790) IN CSECT(I7813  ) LENGTH(1) 
1600 IDCBRAP ADDRESS. HEX LOCATION(OO002ED4) IN CSECT(I7813  ) LENGTH (2) 759 #77 
1556 1557 776 RT204 ADDRESS. HEX LOCATION(000027BA) IN CSECT(I7813  ) LENGTH(1) 
1592 IDCBO ADDPESS. HEX LOCATION(O00002EC4) IN CSECT(I7813  ) LENGTH(2) 756 
1581 1582 746 RT205 ADDRESS. HEX LOCATION(0000275E) IN CSECT(I7813  ) LENGTH (1) 
1594 IDCB1 ADDRESS. HEX LOCATTON(00002EC8) IN CSECT(I7813  ) LENGTH(2) 722 
1575 1576 779 RT208 ADDRESS. HEX LOCATION(000027C0) IN CSECT(I7813. ) LFNGTH(1) 
521 IDLE ABSOLUTE. HEX VALUE (00000002) 762 
906 960 1147 8 477 SCTID ADDRESS. REX LOCATION (0000260C)_ IN CSECT (17813 ) LENGTH (2) 
452 a ABSOLUTE. HEX VALUE (00000023) 702. 704 755 774 77. 928 926 928 
1904 1916 2035 930 932 1182 184 1206 1347 1359 1437 1633 
2095 INTBL ADDRESS. HEX LOCATION (00003128) IN CSECT(1I7813  ) LENGTH(2) 1714 1773. 1776 1794 1797 
213 1465 SCTST ADDRESS. HEX LOCATION (00002DF6) IN CSECT(I7813  ) LENGTH (2) 
1992 INTEP ADDRESS. HEX LOCATION(00003090) IN CSECT(I7813  ) LENGTH (2) 1629 1805 1810 1813 
20 1364 SKDCB ADDRESS. HEX LOCATION (00002052) IN CSECT (17813 ) LENGTH (2) 
2001 INTES ADDRESS. HEX LOCATION(000030A8) IN CSECT(I7813  ) LENGTH (2) 683 684 685 689 691 09 7146 #2719 #29720 
199 721 #744 $745 912 #4°913 914 930 932 935 
2005 INTET ADDRESS. HEX LOCATION(000030B0) IN CSECT(I7813  ) LENGTH (2) 944 946 946 947 1.948 953 953 963 964 
2002 969 1045 1057 1167 1168 1169 1190 1191 1242 
20 32 INTOK ADDRESS. HEX LOCATTON(000030B4) IN CSECT(I7813  ) LENGTH(2) 1243 1765 
717 SKRV ADDRESS. HEX LOCATION(0000270A) IN CSECT(I7813  ) LENGTH (1) 
2054 INTPX ADDPESS. HEX LOCATION(000030E4) IN CSECT(I7813  ) LENGTH (2) 711 
2049 52 529 STAPT ABSOLUTE. HEX VALUE(0000000A) 
2035 INTRI ADDRESS. HEX LOCATION(000030BC) IN CSECT(I7813  ) LENGTH (2) 1908 
200 O4 6 1510 STATS ADDRESS. HEX LOCATION (O0QQ2E5O) 1 IN CSECT(I7813  ) LENGTH (2) 
2040 INTR2 ADDPRFSS. HEX LOCATION(000030CA) IN CSECT(I7813  ) LENGTH(1) 1029. 1030 1221 1222 1? 1269 1280 
2037 107 SUPSTAT ADDRESS. HEX LOCATTON(000019C4) tN CSECT(I7813._-) ~TENGTH(1) 
2048 INTR3 ADDRESS. HEX LOCATION (000030D8) IN CSECT(I7813  ) LENGTH (2) 2187 
2045 960 TTTS ADDRESS. HEX LOCATION (0000296C) IN CSECT(I7813 ) LENGTH(2) 
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961 667 T7802 ADDRESS. HEX LOCATION(0000264C) IN CSECT(I7813  ) LENGTH (4) 
1686 TT303 ADDRESS. HEX LOCATION(00002F22) IN CSECT(1I7813 ) LENGTH (6) 
1678 1147 T784 ADDRESS. HEX LOCATION(00002B08) IN CSECT(I7813 ) LENGTH (2) 
1692 TT 304 ADDRESS. HEX LOCATION(00002F3A) IN CSECT(I7813  ) LENGTH (4) 1 
1676 1685 1687 873 T7850 ADDRESS. HEX LOCATION(00002800) IN CSECT(I7813  ) LENGTH(4) 
1635 TTUY ADDRESS. HEX LOCATION(OOO02EF2) IN CSECT(I7813  ) LENGTH(2) 359 
16 31 691 T7888 ADDRESS. HEX LOCATION(OO0026A4) IN CSECT (17813 ) LENGTH (6) 
95 TUMSGWIR (ADDRESS. HEX LOCATION(000018BA) IN CSECT(I7813  ) LENGTH (1) 688 
2189 1255 TS4A ADDRESS. HEX LOCATION (00002C82) IN CSECT(I7813  ) LENGTH(6) 
79 TUPARMN1 ADDRESS. HEX LOCATION (0000189A) IN CSECT(I7813  ) LENGTH (1) 1205 1207 
914 1191 242 1293 TOUAA ADDRESS. HEX LOCATION(O0002CEC) IN CSECT(I7813  ) LENGTH(2) 
80 TUPARMN2 ADDRESS. HEX LOCATION (0000189C) IN CSECT(I7813  ) LENGTH(1) 1155 1164 1166 
948 1283 TB4B ADDRESS. HEX LOCATION(00002CD0O) IN CSECT(1I7813 ) LENGTH (2) 
101 TURESUL ADDRESS. HEX LOCATION(000018C8) IN CSECT(1I7813 L LENGTH (1) 1281 
673 67 675 676 677 78 734 735 736 1294 T84BB ADDRESS. HEX LOCATION(QOOO2CEE) IN CSECT(I7813  ) LENGTH (2) 
737 73 739 788 (789 790 791 893 894 1298 1300 
895 89 1005 1065 1149 1150 1151 1295 1232 T84UC ADDRESS. HEX LOCATION(00002C48) IN CSECT(I7813  ) LENGTH (2) 
501 TURTN ADDRESS. HEX LOCATION(0000263C) IN CSECT (17813 ) LENGTH (2) 1230 
667 87 1132 2194 1226 T84CC ADDRESS. HEX LOCATION(00002C3C) IN CSECT(I7813 ) LENGTH (2) 
77 TUSTATUS ADDRESS. HEX LOCATION (00001818) IN CSECT(I7813  ) LENGTH (1) 1224 
2167 1229 T84DD ADDRESS. HEX LOCATION (00002C42) IN CSECT(I17813  ) LENGTH (2) 
78 TU WORK ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7813  ) LENGTH(1) 1227 
2171 = 2223 1291 T84E ADDRESS. HEX LOCATION (00002CE8) IN CSECT(I7813  ) LENGTH (2) 
724 TO2A ADDRESS. HEX LOCATION(00002722) IN CSECT(I7813 ) LENGTH (2) 1289 
682 784 7 1297 T84EE ADDRESS. HEX LOCATION(OOO02CFA) IN CSECT(17813  ) LENGTH (2) 
726 T02B ADDRESS. HEX LOCATION (00002726) IN CSECT(I7813  ) LENGTH (2) 1173 119 
697 1236 TS4F ADDRESS. HEX LOCATION (00002C54) IN CSECT(I7813  ) LENGTH(4) 
728 TO2C ADDRESS. HEX LOCATION (0000272A) IN CSECT(I7813 ) LENGTH (2) 1220 123 
701 763 76 1157 TS4FF ADDRESS. HEX LOCATION (00002B26) IN CSECT(I7813  ) LENGTH(4) 
730 TO2D ADDRESS. HEX LOCATION(0000272E) IN CSECT(I7813 ) LENGTH(2) 1153 
754 1276 T84GG ADDRESS. HEX LOCATION(OOOO2CBE) IN CSECT (17813 ) LENGTH (2) 
740 TO2ER ADDRESS. HEX LOCATION (00002748) IN CSECT(I7813 ) LENGTH (2) 1274 
680 695 699 752 71 96 1253 T84H ADDRESS. HEX LOCATION(00002C7E) IN CSECT(I7813  ) LENGTH (2) 
734 TO2R ADDRESS. HEX LOCATION(00002736) IN CSECT (17813 ) LENGTH (4) 1241 
671 1273 T84HH ADDRESS. HEX LOCATION(00002CB8) IN CSECT(I7813 ) LENGTH(2) 
795 T2END ADDRESS. HEX LOCATION(000027F2) IN CSECT(I7813  ) LENGTH (4) 1271 
782 1248 T84I ADDRESS. HEX LOCATION (00002C7A) IN CSECT (17813 ) LENGTH (4) 
1057 T5OA ADDRESS. HEX LOCATION(00002AA4) IN CSECT(I7813  ) LENGTH (6) 1246) 91254 =§©1259 = 1283 6 
927 1258 T84IJ ADDRESS. HEX LOCATION(00002C90) IN CSECT(I7813  ) LENGTH(2) 
1063 TSOAA ADDRESS. HEX LOCATION(00002ACO) IN CSECT(I7813  ) LENGTH (2) 1187 
911 1196 T84K ADDRESS. HEX LOCATION(00002BC2) IN CSECT(I7813  ) LENGTH (4) 
940 T50B ADDRESS. HEX LOCATION(0000291E) IN CSECT(I7813  ) LENGTH (6) 1257 
934 93 1 2 1284 TBYKK ADDRESS. HEX LOCATION(00002CD2) IN CSECT (17813 ) LENGTH (4) 
1067 T50BB ADDRESS. HEX LOCATION(OOOO2ACC) IN CSECT(17813 ) LENGTH (2) 1265 
918 95 968 1279 T84L ADDRESS. HEX LOCATION(00002CC4) IN CSECT(I7813  ) LENGTH (2) 
939 T50C ADDRESS. HEX LOCATION(00002918) IN CSECT(I7813  ) LENGTH (6) 1277 
936 1290 TB4R ADDRESS. HEX LOCATION(O0002CE4) IN CSECT(I7813  ) LENGTH(4) 
1064 T50CC ADDRESS. HEX LOCATION(00002AC2) IN CSECT(I7813  ) LENGTH (2) 1261 1 
1068 1299 TB4T ADDRESS. HEX LOCATION(OOOO2CFE) IN CSECT(I7813  ) LENGTH (2) 
944 T50D ADDRESS. HEX LOCATION(00002930) IN CSECT(1I7813 ) LENGTH (6) 1287 
941 1143 T84TC ADDRESS. HEX LOCATION(OO002AF8) IN CSECT(I7813  ) LENGTH (6) 
921 T50E ADDRESS. HEX LOCATION(O00028CE) IN CSECT(1I7813 ) LENGTH(4) 1140 
943 1146 TS4uT1 ADDRESS. HEX LOCATION(00002B04) IN CSECT(I7813  ) LENGTH (4) 
955 T50F ADDRESS. HEX LOCATION(0000295E) IN CSECT(I7813 ) LENGTH(2) 1141 1 
945 1144 T84T2 ADDRESS. HEX LOCATION(OOOO2AFE) IN CSECT (17813 ) LENGTH (4) 
9 20 T50G ADDRESS. HEX LOCATION(000028C8) IN CSECT (17813 ) LENGTH (6) 1142 
954 1261 T84UWR ADDRESS. HEX LOCATION (00002C94) IN CSECT(I7813  ) LENGTH (4) 
971 T50H ADDRESS. HEX LOCATION(00002992) IN CSECT(I7813  ) LENGTH(6) . 1211 1215 
956 1167 T84Z ADDRESS. HEX LOCATION (00002B4A) IN CSECT(I7813  ) LENGTH(6) 
1011 T501I ADDRESS. HEX LOCATION(00002A24) IN CSECT (17813 ) LENGTH (6) 1156 
972 1186 T842 ADDRESS. HEX LOCATION (00002B98) IN CSECT (I7813 ) LENGTH (6) 
935 T50J3 ADDRESS. HEX LOCATION(00002908) IN CSECT(1I7813  ) LENGTH(6) 1181 1183 
925 929 93 933 1190 T843 ADDRESS. YEX LOCATION(OO002BAA) IN CSECT(I7813 ) LENGTH (6) 
979 T5OL ADDRESS. HEX LOCATION(OOOO29AE) IN CSECT(I7813  ) LENGTH (6) 1185 
974 977 1176 TB4Y4 ADDRESS. HEX LOCATION(00002B74) IN CSECT(I7813 ) LENGTH (4) 
985 T50M ADDPESS. HEX LOCATION(000029C2) IN CSECT(I7813  ) LENGTH (6) 1189 
980 C83 1397 VRDCB ADDRESS. HEX LOCATION(00002D82) IN CSECT (17813 ) LENGTH (2) 
993 T5SON ADDRESS. HEX LOCATION(000029E2) IN CSECT(17813 ) LENGTH (6) 1786 
988 991 1419 WK DCB ADDRESS. HEX LOCATION(00002DA2) IN CSECT(I7813  ) LENGTH (2) 
999 T5OR ADDRESS. HEX LOCATION(000029F6) IN CSECT(I7813 ) LENGTH(6) 1199 1800 1801 1816 1817 
994 997 1386 WRDCB ADDRESS. HEX LOCATION (00002D72) IN CSECT(1I7813 ) LENGTH (2) 
1007 T50S ADDRESS. HEX LOCATION(00002A1A) IN CSECT(1I7813 ) LENGTH (6) 1789 
1002 1004 1458 WRSID ADDRESS. HEX LOCATION (00002DE8) IN CSECT(1I7813 ) LENGTH (2) 
1070 T50T ADDRESS. HEX LOCATION(00002AD0) IN CSECT(I7813 ) LENGTH (4) 1337. 1426 1634 1715 1817 1821 
1006 1020 1056 1066 1330 WSDCB ADDRESS. HEX LOCATION(00002D22) IN CSECT(I7813 ) LENGTH (2) 
885 T50TC ADDRESS. HEX LOCATION(0000282A) IN CSECT (17813 ) LENGTH (6) 1198 1820 1821 1823 1824 
881 1462 WSIDT ADDRESS. HEX LOCATION (0000208 O). IN CSECT (17813 L LENGTH (2) 
905 T50T1 ADDRESS. HEX LOCATION(00002890) IN CSECT(1I7813 ) LENGTH(4) 1208 1209 1210 1212 1213 1214 41630 1801 1824 
882 885 453 XE ABSOLUTE. HEX VALUE(00000024) 
887 T50T2 ADDRESS. HEX LOCATION (00002836) IN CSECT(1I7813 ) LENGTH (6) 1201 2001 2063 
884 451 a8 ABSOLUTE. HEX VALUE (00000022) 
959 T50T3 ADDRESS. HEX LOCATION(00002968) IN CSECT(I7813  ) LENGTH (4) 1907 2048 
883 8 1882 XIO ADDRESS. HEX LOCATION (00003018) IN CSECT (17813 } LENGTH (4) 
897 T50U ADDRESS. HEX LOCATION (00002866) IN CSECT(1I7813 ) LENGTH (6) 1766 1769 1777 #1784 41787 #1790 1798 1802 1806 
1008 1814 1818 1822 1825 1828 
1014 T50W ,ADBRESS. HEX LOCATION(OOOO2A2E) IN CSECT(1I7813 ) LENGTH (6) 2053 XIOCK oe HEX LOCATION(O00030EF6) IN CSECT(I7813 ) LENGTH (2) 
1017 T50X jABBRESS. HEX LOCATION(00002A38) IN CSECT(I7813  ) LENGTH (6) 2070 XIOCO eReE ene: HEX LOCATION (000030F8) IN CSECT(I7813  ) LENGTH (2) 
10 20 T50Y HERP ESS- HEX LOCATION(00002A42) IN CSECT(I7813  ) LENGTH (4) 1887 XIOCS a DURES eS Tet LOCATION (00003028) IN CSECT(1I7813 ) LENGTH (6) 
1052 T500 {ADDRESS. HEX LOCATION (00002 a9) IN CSECT(I7813 ) LENGTH(4) 2072 XIOCV ADDRESS. HEX LOCATION(OOO030FC) IN CSECT(I7813 ) LENGTH (2) 
1051 T501 {RBDRESS. HEX LOCATION(00002A98) IN CSECT(I7813  ) LENGTH(2) 2081 XIOCX ADDPESS. HEX LOCATION (00003116) IN CSECT(I7813  ) LENGTH(4) 
1055 T502 jADRRESS- HEX LOCATION(OOOO2A9E) IN CSECT(I7813 ) LENGTH (2) 1956 XTOER ADDRESS. HEX LOCATION(00003084) IN CSECT(I7813  ) LENGTH (2) 
1044 T503 jOBRESS. HEX LOCATION(OOOO2A7E) IN CSECT(I7813  ) LFNGTH(2) 1891 XIO1 {ARDPESS. HEX LOCATION (00003038) IN CSECT(I7813 ) LENGTH(4) 
1042 T504 ADDRESS. HEX LOCATION (00002A7A) IN CSECT(I7813 ) LENGTH(2) 1904 XT02 aug HEX LOCATION (OOO0305E) IN CSECT(I7813  ) LENGTH (2) 
1045 T505 jRDBRESS. HEX LOCATION(00002A80) IN CSECT(I7813 ) LENGTH (6) 1916 XxI08 JABDFESS. HEX LOCATION (00003072) IN CSECT(I7813 ) LENGTH(2) 
1049 T506 jARDRESS. HEX LOCATION(00002A90) IN CSECT (17813 ) LENGTH (6) 1447 XXX eae gees coca Ou AuooveEes) IN CSECT (17813 ) LENGTH (2) 
1061 T507 ADDRESS. HEX LOCATION(OO002AB6) IN CSECT(I7813  ) LENGTH (6) 1440 ZEROO ADDRESS. HEX_LOCATION(O0002DC2) IN CSECT(I7813 __) LENGTH (2) 
1058 702 755 774 926 935 44 1005 1182 1206 
904 T750 RDDRE SP: HEX LOCATION(00002894) IN CSECT (17813 ) LENGTH (2) 1677 
692 T7777 ADDRESS. HEX LOCATION(000026AA) IN CSECT(I7813 ) LENGTH (6) 
690 eR RH ee te HO eR HK Fe He FH ee RR KR RR KKK TL AST DA GE HR KK HK RK IK ROK RK tak i ke kot ak ioe of of ok ok 


